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ARCHED 


A simple all-purpose line editor that 
runs within Archive 


HARDWARE REVIEW 
The Hewlett Packard DeskJet printer — 
a useful alternative to laser printing 
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D1Y TOOLKIT DISK RENAME UTILITY 


Select drive @ to stop this program, 


Salact disk drive, 1-8: 


Select disk drive, 1-8: 


| The DIY Toolkit budget software 


disk collection has expanded 
withnew programs and updates 
for QL, Thor and compatible 
systems. Phil Spink and up- 
graded utility programs in 
Volumes H,Jand Q, whileSimon 
Goodwin has added new disk 
tools to Volume D. 

VIEW DISK is an elaboration 
of CHECKDISK, (QL World De- 
cember 1990). [t quickly checks 
the entire surface of a Qdos disk 
displaying tracks as concentric 
circles asit goes along. Errorson 
either side are colour-coded and 
reported in a window alongside 
the disk view. 

DISK RENAME lets you 
changes any floppy disk’s name 
without re-formatting the disk. 
Thisutility displays the old name 
for any FLP drive before 
prompting for the replacement 
name, and makes it easy to re- 
name several disks atone sitting. 

CHLIST (QL World November 
1990) identifies all the open 
channels on a system, showing 
the name of each channel and its 
task, plus the Qdos ID and 
channel definition address. The 


| new versionin Volume Qshows 
| SuperBasic channel numbers, 


like 0 and 3, as well. 
DEVLISTS, in Volume H, has 

been upgraded to show the 

names of Qdos devices as well 


FLP 2. 


FLP 


as linkage addresses and vec- 
tors to open, close and 
manipulatechannels withTRAP 
3. This utility helps resolve 
toolkit or device-name clashes. 

TASKNAMESshows the name 
of each task as you select its 
cursor. The latest version takes 
the non-standard job headers of 
Mmerva’s extra interpreters in 
its stride, naming them as well 
as normal QL and Thor tasks. 
Volume J also includes the 
unique Taskforce 128K multi- 
tasker, plus a utility to rename 
compiled tasks and another that 
adds names toanonymous tasks 
like Psion packages. 

The revised Volumes are 
available from CGH Services 
from 10th March 1991. The full 
range of DIY TOolkit programs 
now runs to 15 Volumes, total- 
ling well over 200 files, including 
the new Qlipboard (Volume 5) 
and this month’s SET extension, 
Volume U. 

Volumes cost £3 each, plus a 
processing charge of £4 perorder. 
The total price includes disks 
and delivery; tape orders must 
come with one formatted 
microdrive cartridge for each 
volume required. Call (0559) 
384574, or post orders or enquir- 
ies to DIY Toolkit, Cwm Gwen 
Hall, Pencader, Dyfed, Cymru 
SA39 9HA 
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Printer giants Star Micronicsare 
inviting schools in the UK, Ger- 
many and France to enter an 
annual competition to promote 
environmental awareness. As 
well as winning computing 
equipment for their schools, 
winning teams will go to Japan 
this summer on a ten day cul- 
tural exchange visit. 

The competition is open to 
full time students aged 16 to 18, 
and aims tocontribute to school 
studies, A levels, CPVE and 
TVEI in subjects touching on 
the environment. 

Teams will tackle projects in 
five areas: Energy, global 


warming, today’s ‘throwaway’ 
culture, world use of resources 
and theageing of society. Com- 
petition regions in the UK cover 
Scotland, Northern Ireland and 
Northern England, the Mid- 
lands, Wales and the South 
West, the South East, and lastly 
Greater London and the areas | 
within the M25, 

Star is issuing information 
packs to schools. Packs and 
competition forms can be re- 
quested from The World and 
Our Future, Byron House, 
Wallingford Road, Uxbridge, 
Middx UB8 2RW. 


Tax Experts Call 


EMSoft of Boston, who have 
produced and published Tax- 
I-QL, an 105K-Abacus 
template for the preparation 
of US Individual Income Tax 
Returns fora number of years, 
are now looking for program- 
mers to adapt the template 
for other nations’ income tax 
systems. They are suggesting 
that interested programmers 
“familiar with their country's 


tax laws” to contact them. 
They add that “there would 
be no charge for the rights to 
use the name Taz-I-QL. Our 
sole purpose is to increase the 
utility of the QL Thor compu- 
ter”, and add that they can 
offer programming tips to 
maximise memory saving and 
loading speed. 

EMSoft are at PO Box 8763, 
Boston, MA 02114-8763, USA. 


Archive Plus for Dos 


DMT Associates and James 
McCosh, in association with 
Transform Ltd. are shortly to 
release a new version of Archive 
for use with DOS. A Unix ver- 
sion is expected in the summer 
of 1991, together with a DOS 
network version. 

The new program is call 
Archivet and, while it is said to 
be fully compatible with Psion 
Archive, itis described as hav- 
ing extra features including ten 
index files per database file, 
shell to dos, shell to dos and 
run application, integer num- 
bers, approximately three 
times the speed of Archive, 


match command to locate on 
second field of index, cut paste 
and copy in the editor, and 35 
database and/or index files 
available to open at any time. 
- Older Versions of Archive are 
available on MS-DOS through 
the Psion Xchange suite or 
through a PC emulator pro- 
gram such as_ Digital 
Precision’s Conqueror 

Archivet will be available 
from March 1 priced £299 plus 
VAT. Enquiries to Colin 
Hughes, Transform Ltd., 7c 
Station Approach, Hayes, 
Kent BR2 7EQ. 

Tel. 081 462 4666. 
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The New User Guide picks up momentum this month by 
rounding-off of the fundamentals of SuperBasic pro- 
gramming. Next month we start on the fancy waistcoats, 
but once you have the hang of the contents of parts 1 and 
2, programming will never again look like a seven-foot 
high brick wall. 

Becher's Brook, the Triple and the obstacle course follow 
shortly. 

Wehaveashoppinglistof sorts of the year.|have enough 
reports in the bag now to run another Printer Report, but 
would like to hear from other readers who have bought 
new printers or solved their relationships with their old 
ones in the last couple of years. Please write for details. 
QL World would also like to hear from any user who has 
become proficient in the use of the QL/Atari emulator, or 
the QL/Amiga emulator software, or is using any QL/ 
other machine linkup for pleasure or profit. 

Back to printers again: | would like to compile a register 
of eager printer-users who would be ready to assist other 
printer-users through the pages of QL World. There be a 
few bob in it if any enquiries crop up. No addresses will 
be passed on. Drop me a line if interested. 
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sing the major QL programs is a 
relatively leisurely business, and 
many users will have come to 
believe that this is largely the 
fault of the hardware rather than the soft- 
ware. It comes as a bit of ashock when a 
new program raises the tempo of opera- 
tions appreciably. The word-processing 
program Perfection is remarkably swift in 
most respects, and makes it clear that the 
7.5 MHz central processor in the QL is 
adequate to provide good performance if 
program code is sufficiently well-written. 
As yet, the version of the program used in 
my system is still a beta-test one, and 
lacks some major features such as the 
spell-checker and the graphics-import 
function, but the full version should be in 
the hands of users by the time these 
comments are printed. What particularly 
impresses me is the way Perfection on the 
QL compares favourably with well-known 
wp programs on the PC; in contrast to 
Quill, which looks very slow, Perfection 
imposes no serious restraint on the user. 
The performance on the ST Atari with QL 
emulator must really be something to 
behold (check Jochen Merz Software for 
details of the emulator board), 

It was good to see Sector Software once 
again, at the All Formats Computer Fair in 
London on February 2nd. This supplier 
has not been much in evidence for awhile, 
and the reason given for this is that a 
concentrated programming session has 
been necessary to complete a program 
for pairing STD telephone codes with 
geographical locations. STD codes are 
the UK telephone codes assigned to lo- 
calities, such as the 071 and 081 used for 
London. There are around 6,000 of these 
on Sector's list, all but a few of them being 
paired with the corresponding localities. 
Versions of the program are offered for 
QL, PC and Amiga. 

EEC Ltd. are selling an interface to en- 
able standard PC keyboards to be used 
with the QL. They also offer two versions 
of an Epson PC keyboard. The interface 
appears to plug in neatly on the QL circuit 
board, and a DIN connector is located 
adjacent to one of the ports at the rear of 
the casing, so that the new keyboard can 
be plugged in and out without opening-up 
the QL. The QL keyboard has never upset 
me enough for me to want to get rid of it, 
but a fast typist would feel more comfort- 
able with the PC type; in addition, it would 
be much easier to use PC programs un- 
der the ConquerorMS-DOS emulator with 
a pukka PC keyboard. Remembering the 
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Bryan Davies 
catches up 
on readers’ 
enquiries. 


equivalent QL keyings for PC program 
commands is not an easy task. 

Although many programs stay un- 
changed from the time they are introduced, 
others are subject to updates, albeit at 
irregular intervals. Digital Precision point 
out that their Turbo compiler is now up to 
version 3.24. The current program disk 
contains a collection of files having differ- 
ent version numbers; there is a detailed 
explanation in the instructions of how to 
select the appropriate versions of certain 
files, to suit the ‘age’ of the compiled 
program being updated. 

Thereis also reference in the instructions 
to compatibility of the Minerva rom with 
Turbo; the general message is that 
(hopefully) final changes to certain parts 
of Turbo will be made if/when the Minerva 
‘goalposts’ stop shifting! Media Manager 
S.E. has been updated, but no major 
change is reported. 

The Transfer Utility is a handy program 
for making copies of media where some 
changes need to be made within the files 
contained, as, for example, when a pro- 
gram on microdrive has to be converted 
for use on floppy disk. This program allows 
the user to specify up to 32 substitutions of 
as many as 64 characters each, to take 
place during the copying procedure. The 
obvious substitution would be 'flp' for’mdv’, 
but there is no reason for the exchanges 
to be limited to device names — you could 
use the function for Search and Replace 
operations on text in documents. 

An unusual addition to the DP range is 
DR-DOS version 5.0, the alternative op- 
erating system for PC users who can't get 
on with the standard MS-DOS (or PC- 
DOS on actual IBM machines). This will 
be of interest to QL users who have the 
Conqueror MS-DOS emulator. Among the 
several plus-points of DR-DOS is the ability 
to make considerably more of the basic 
640 KB of user space available than MS- 
DOS can. 

Readers’ letters 

Asking for comments on Minervalaid me 
open to receiving letters that would be, in 
part at least, over my head. One such 


came from PH Tanner, who is a disgrun- 
tled ‘owner but not user' of Minerva V1.82. 
In plain language, he can't use this rom, 
because it conflicts with software he uses 
regularly, specifically QFlash and the 
combination of SpeedScreen and 
MasterSpy. Tanner writes in the Forth 
language, and has a problem with Qdos 
‘inverse trigonometrical functions'; Minerva 
appeared to offer a way around this ap- 
parent bug. He was not happy (as of early 
January) with the response he had got 
from QView about the conflicts. 

Details of some more conflicts were 
supplied by C Grogan. He has been using 
versions 1.65 and 1.82 of Minerva, and 
thinks some of his problems occur only 
with the latter version. The SDUMP screen 
dump command incorporated in some 
toolkits (eg with the Trump Card) no longer 
works, either from the typed SDUMP 
command or via a preset hot-key, al- 
though the Qram dump does work. In 
addition to the problem with the View 
screens, use of the Arc command of The 
Painter now causes that program to ‘dis- 
appear from memory’, although the QL 
doesn't crash. The Circle and Ellipse 
commands do not draw anything visible 
on the screen, and the Turn Shape com- 
mand produces animmediate crash (these 
problems did occur with V1.65 Minerva 
too). These comments apply to the 3.02 
version of The Painter; with the 4.00 ver- 
sion, Arc is replaced by Bezier Curves, 
which work, as do the Circle, Turn Shape 
and Ellipse commands, but View Screens 
still causes trouble, and Load Patterns 
can produce 'visually-spectacular 
crashes’, with the V1.82 Minerva. 

3D Precision is another program in 
trouble; the small cursor is not visible, but 
one can draw with it. With Professional 
Publisher, problems occur in use of the 
Edit Page and High Definition (when 
loading text) options. A plus-point is that 
the ‘fat founts' can be used at any CSIZE 
setting without the distortion he had ex- 
perienced with the JM rom. The automatic 
offering of the name 'flp2_test_task' when 
Charge is entered, with the Turbo compiler, 
is no more and 'Parser_task' is offered 
instead. The Codegen_task compiler 
function does not start automatically, and 
the EX command has to be used for it. 3D 
Designer simply crashes when loaded. 

There are programs which do work for 
Grogan, however. He names text *’, Edi- 
tor, TechniQL and QLiberator; Conqueror 
will work if a POKE is keyed-in before- 
hand. He is obviously not entirely dissat- 


Sinclair/QL World December 1990 


isfied with Minerva, as he quotes some 
advantages for it, but he wonders what 
other problems are lurking, waiting to 
cause trouble for him and other users. 

A complaint from reader Hans-Peter 
Thun some months ago about a faulty 
disk drive supplied by Miracle Systems 
apparently didn't get him any solution, but 
he moved from Germany to England and 
got some advice, which resulted in his 
experimenting with disk drive jumper 
settings and connections. The end-result 
of this was one ruined QL, and the pur- 
chase of asecond-hand PC/XT! This might 
have meant the end of his life as a QL 
user, but that was not to be. He has since 
yielded to requests from his daughter to 
provide her with a fully-operational QL, 
and now has three varieties of QL in his 
stable. 


File Transfer 


It would take a whole article to go over the 
points Hans-Peter made, and there's not 
enough room here for more than this one. 
He had read my article on file-transfer 
between QL and PC versions of Archive, 
and he needed to transfer some Archive 
databases from his QL to the XT. He 
successfully transferred both files and 
routines, converting the latter where nec- 
essary to run in the PC-Four version of 
Archive. As he rightly says, Archive is not 
the most common database program on 
the PC, so what about transfer to other 
programs? Amongst other conversions, 
he has rewritten his QL Archive routines 
for use with dBase ///on the PC, and has 
exported QL Ease/ graphs — using 
DiscOver — to Harvard Graphics, then 
imported them into Microsoft Word (a 
word-processing program with graphics 
features) and printed them from the PC. It 
is clear that some of these operations may 
not be justifiable from an efficiency point- 
of-view, but they are interesting, and pro- 
vide added flexibility in one’s computing 
activities. 

After transferring files for a year or so 
now, | no longer regard QL-PC discourse 
as any big thing, but my operations are 
usually in the strictly-limited area of Ascii 
text files. It is true to say you can have far 
more trouble moving text files between 
certain PC WP programs than between 
QL and PC; try making sense of 'text' files 
from the IBM WP program DisplayWrite, if 
you don't mind being driven up the wall a 
few times. To my chagrin, my betterhalf 
occasionally requests assistance with 
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DisplayWrite, and it doesn't take more 
than about ten seconds of contact with the 
program for me to be hopping mad. 

P J Wilson was one of the people who 
ordered the PS/2 keyboard from Key- 
board Products, at the time when that 
supplier was said to be having technical 
problems which were delaying shipment 
of keyboards. He cancelled the order after 
trying a few times to get assurances on 
delivery, but had not received a refund of 
the money paid out in July, as of late- 
January (despite being advised in No- 
vember that a refund would be made ‘ina 
few days’). The suppliers assured me 
some months ago that the problem had 
been fixed and keyboards were being 
shipped, but L M Furminger says he has 
been trying from September last year to 
early January this, to get his money re- 
funded, following failure to deliver a PS/2- 
style keyboard. He has now threatened to 
take legal action against the company. 
Michael Jackson says this company 
delivered his keyboard ‘five months after 
cashing my cheque’, but it proved to be 
faulty. He is awaiting response, after re- 
turning the keyboard. The main fault was 
random generation of characters; what 
appeared on-screen was not what had 
been typed. Jackson had advised the 
company that he was intending to write a 
review of the keyboard for Quanta or QL 
Technical Review, so it is all the more 
surprising that his complaint has not yet 
been dealt with. He asks whether any 
other QL World readers have bought the 
PS/2 keyboard (current version, not as 
sold by Sch6n) and used it successfully. 

A satisfied purchaser is Martin Neave, 
who ordered an Epson GQ-5000 laser 
printer from SCS Computer Supplies, 
following my comments on a GQ bought 
from that supplier. My experience of de- 
livery was not exactly good, but that was 
the fault of the delivery company rather 
than SCS, and Neave reports that he was 
very pleased with the prompt delivery of 
his printer, and the responsiveness of 
SCs. 

As was my experience, he found that he 
was getting prints from the GQ (using the 
QL with The Editor and Professional Pub- 
lisher) within a very short time of receiving 
it. Itis straightforward to setup, and simple 
to use. My own GQ is now four months old 
and working well; apart from the habit of 
feeding several sheets of paper together 
when | put new paper on top of scrap, 
there is very little to complain about. It 
does cost money, though. It so happened 


that most of my work during this period 
has involved making many prints, and the 
cost of toner alone is running at over £10 
per month. 

The print problem experienced by Gerard 
Delaney when using text®’ and the Kaga- 
Taxan DMP printer seems to have disap- 
peared, without a reason for it becoming 
obvious. No-one else has written to report 
a similar problem, so it looks as though 
that may be the end of the matter. It is 
interesting, though, that a copy of text®” 
sent to me by Delaney did not work at all 
on my system, although he says he has 
had no problems with his disk drives, and 
acopy made from my master disk onto the 
‘bad' disk he sent me also works fine on 
his system. So, does one of us have a 
faulty disk drive? We both say 'no', and 
are none the wiser as to how the undoubted 
corruption of the program file occurred. 

Delaney wonders if acorrupted program 
file will run at all, and the answer to that is 
simply that corruption can take a great 
number of forms, of which many may not 
prevent the program loading and working 
apparently normally. When in doubt, re- 
place your working copy by another one, 
taken from the master; always write-protect 
master disks, to make it unlikely they will 
become corrupted. Peter Tomlin also 
uses the Kaga-Taxan printer, and he of- 
fered a SuperBasic program for checking 
the printer interface; this will be sent on to 
Delaney. The SB program comes from 
the manual supplied with the printer. 

Acomplaint from DS Graham about non- 
reply by Digital Precision to his request 
for a replacement program disk may well 
have been sorted out by now, as the letter 
was written in December last, but D P will 
be asked to comment upon the complaint. 
Although a reader was kind enough to 
supply an address for Buzzz Software, 
that didn't get John Easlea anywhere in 
his quest for help on the Home Finance 
program. The reply he got was ‘haven't 
dealt with the QL product for years'. Easlea 
has written to John'Hadley, who supplied 
the information on Buzzz, to ask if he can 
provide any further help. 

A lost Miracle hard disk is Michael 
Cronsten's problem; he ordered one from 
T K Computerware in May 1990, and 
says he had not received it as of January 
this year. T K told him it was despatched 
in May-June and must have got lost in the 
post; they were making a claim for it to the 
post office. It certainly seems an unduly 
long time for a claim to be sorted out. As 
the unit was paid for by credit card, 


Cronsten should certainly try to reclaim the 
expenditure from his credit card company. 

Mike Jackman has been trying for some 
months to get a problem with using 
TechniKit (from T K Computerware) sorted 
out. The ‘plot’ module works correctly on 
the QL (but not on his Thor) with a Penman 
plotter, but he wants to produce drawings 
for use in articles by making use of the 
‘screen dump’ module, and he says the 
module doesn't work correctly. On the 
positive side, he praises a scanner bought 
from T K. He did have problems getting it to 
work at first; the software provided didn't 
work with his Epson RX80F/T printer, but 
modifications to the software were provided 
and the scanner has been working suc- 
cessfully for about a year. Check when 
ordering that the software supports your 
printer, 

Jackman notes that a letter in the Decem- 
ber issue of the Quanta group newsletter 
gave yet-another method of adding fields 
to an Archive database. The approach 
suggested is to Export the file from Archive, 
Importitinto Abacus, use Amend to change 
fields, or add new ones, then Export the file 
and Import it back into Archive. 

A copy of the instructions for the Silicon 
Express disk drive interface has been sent 
to Nigel Ford. J Roy Goodall has become 
the most-regular correspondent—he seems 
to try everything available, and have his fair 
share of problems. He says he has given 
up on TechniQL, and is now using Cadette 
from BestMalt; this does all he requires of 
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it, and prints. without problem. His cata- 
logue of difficulties gets larger and larger. 
No response has been received to his 
letters to MBS Data Efficiency, Fre- 
quency Precision, Transform Ltd. and 
Sector Software; he also wrote to another 
JR Goodall (a QL World reader who wrote 
to us regarding the transfer of data between 
QL and Psion Organiser) but his letter was 
returned marked ‘gone away’. On top of all 
this, his PS/2 keyboard was returned to 
him by Keyboard Products but ‘still does 
not work’. 

The previous mentions of his problems 
lead to a call from a neighbour in Belize, 
who also is a QL enthusiast and QL World 
subscriber; they have been able to help 
each other in various ways. His latest wish 
is for a fax card for the QL. | haven't heard 
of one, but it does seem a useful thing to 
have, particularly for those users who al- 
ready connect their QLs to bulletin boards. 
On this subject, TF Services is the obvious 
supplier to talk to about connecting your 
QL on-line to bulletin board services (and 
also about QL repairs). 

For readers who haven't the slightest 
idea of what a fax card is, itis now possible 
to have a facsimile transmission feature 
within your computer (leastways, it is if you 
have a PC). This function enables 'pages' 
of information to be passed between 
computers which can be many miles apart, 
without the need for a ‘reading machine’ to 
scan a document at the originating end, 
and a similar device to print it at the receiv- 
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ing end. The information is transmitted as 
a computer file; that is, you can create a 
document in your wp program, pass it to 
the fax program, and have it sent to a 
remote location; at the remote location, the 
file is received and stored, to be displayed 
on the screen as and when desired, and 
printed out (on an ordinary printer) if nec- 
essary. All that is required is an additional 
circuit board and some software. Has 
anyone developed such a device for the 
QL? 

Sector Software has been the target of 
several letters of complaint during the past 
few months. As noted elsewhere, they 
explained that heavy involvement in a 
programming project had been the reason 
for the lack of response, but that is hardly 
justification for not dealing with QL users’ 
complaints and it is to be hoped that 'nor- 
mal service will be resumed shortly’. Sec- 
tor has previously been praised by many 
customers. S Long ordered FlashBack S 
Eand some cartridges late in October, and 
received the cartridges and the instructions 
for FlashBack, but no program cartridge. 
The usual kind of story is told — several 
‘phone calls, but no satisfactory answers, 
as of early January. He has had trouble 
when calling, with the fax machine an- 
swering instead of the normal ‘phone on 
occasions. The problem may relate to the 
transfer of sales of this program from Sector 
to DJC Computing, and/or the return of 
Sector to their old address (in Ulnes 
Walton). 


QLFP (Micro/P disk interface upgrade) @£14,95d 
QMON Il oe @£23.00d 

QTYP Type/Spell Checker . +r @£29.90d OPAC |I Main menu windows adjust automati- 
QPAC 1-Desk top accessories, calander, alarm, calculator, cally to size. Files, directory, view, print, delete, 
typewriter, digital clock sysmon ........, nisi eey io @£21.85d backup, jobs, pick, Rjob, sort, channels, things 


exec, wake, buttons, Hotkey, Hotjobs. Fully 
ZITASOFT SOFTWARE by St ones multitasking, allows many programs to run at 


Over 118 Commands:- Full Screen Editor, hg Segui Print 
Using, Last Line Recall, Altkey, Job Control, File Handling, 
Default Directories, Extended Network, 

16k Eprom Cartridge Version . . @£24,15d 
Configurable Version on Micro @f24,15d 


MIRACLE SYSTEMS PRODUCTS 


OK Disc Interface (Inc Tool Kit Il) .@£99,82b 


j= 


iz 


QL Centronics Printer Interface ...., .@£28.75d LOCKSMITHE copies M/DRIVE RIVE ....@£14.95c once, Requires min of 256k expanded memory 
QL Expanderam 512K Thrucard @£99.992 4MATTER + LOCKSMITHE copies M/DRIVE - DISC stveseteceosecssscvsisiserananeneuevaususaseveneves @£49.91b 
Fisaidg sized tacpenia cacanieauste geek eae iesenaislapaiviconcaeiiny @£23.00c Upgrade QRAM to QPAC I! return master 


QL HARDWARE 


Single 3.5" Disc Drive & (Own PSU) .. 

Dual 3.5" Disc Drive & (Qwn PSU). -«. @£188.60a 

3.5" DS/DD Dises - 10 off .@E£9,20c 

Q POWER REG. The only real solution to you QL overheating 

feationed mode power supply run cold) . -, £24,15¢ 
IL Keyboard Membrane 

QEP Ill Advanced Eprom Progra 

Care Eprom Cartridges each 

ULA CHip ZX6301 


PRINTERS 


STAR LC 10 Mone , 
STAR LC 10 Colour 
CITIZEN SWIFT 24-pin Colour .. 


Sinany iain atanessa gnvnenpe utes haataicrneieced @£29,90b 


AS REVIEWED QL WORLD 
AUGUST ISSUE 


The above programs are not for use in the UK 
SIDEWINDER - High resolution printer driver prints full 
screens or parts of screens from postage stamp size to 
large banners, Prints sideways, invert, scale, mirror, text 
TAB OMION mcarsconiemncteamnataslersreintiateieienatavee! @£19.95¢ 
SIDEWINDER PLUS - (for expanded QL's) includes all the 


features of above, PLUS multiple label printing, desktop b> G \4 ¢ 


-.-@£103.50a 


publishing files and printer driver for 24" pin plus LC10 and CoP 
Jx80 colour printers. (Please state 3.5" disc or MD} 


a OPEN 


: il 
~ Qam-5pm Mon-Thu 
HEAT TRA RIBBONS & PE — 7 
= aoe es \C))  Sam-4pm Fri 


Small 5 colour pen set .-.. @£13,80c 


800 ST ALBANS ROAD, 
GARSTON, WATFORD, 
HERTS, WD2 6NL. 
Tel: 0923-672102 
Fax: 0923-662304 
Please add carriage 


a=£11.50 b=£3.45 
c=£1.38 d=2.30 


Jumbo 5 Colour Pen Set .. .. @E17.25¢ 


READYMADE LEADS 


RGB QL to Phono .... 
RGB 8-6 pin DIN ...... 
RGB 8-7 pin DIN (Hitachi} 
RGB 8-7 pin DIN (Ferguson) .... 
RGB 8 pin to SCART (Euro) .... 
6-way PCC 25-way 'D’ (Printer-Ser 1) .. 


: Print T-shirt Design. Just print Se 
SOFTWARE 87 (State MDV or Disc) ean oor cae I ESI ey RE OM paper ane Kron wa 
TEXT87V. foe {Requires Min 256k} Star LC10NX1000, Rainbow vee @E17.25¢ aS @A 
FOUNTED 89 ...... -@E15.000 Star LC10NX1000, Black... @£11.50c SIPS na (Cone 
eae SO/FOUNTEXT 88 i @84 99 Epson FX80, MX80, LX80, F) ! ta ML8O Citizen (C J} | \ J VAN 
248B PRINTER DRIVER e £15, DOc  120D/Star NX10, Black, Panasonic 1080/81 ...@£11.50¢ ” ‘2! 


Philips BM7522 Amber Hi-Res ... 
Philips CM8833 Colour Med-Res 
Philips AV7300 TV/tuner for abov: 
Philips BM7502 Green Hi-Res .... 


HOW TOORDER: | TO ORDER: 


ALL PRICES INCLUDE VAT 


= 


By Post. Enclose your Cheque/PO made payable to CARE Electronics or use ACCESS/VISA. Allow 7 days for delivery 


LD LD LD LT Le a a a 
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LOVE YOUR PRINTER 


Just for Starters 
Learn to Love 


here doesn't seem to be much 
argument among computer 
people, that the one subject 
which generates more questions 
than all others is printers. This article 
actually started life some time ago, and 
‘missed the cut’, so to speak, but there are 
still enough QL users having problems 
getting the desired output from their 
printers to make the points made here as 
| valid now as they were then. There are 
two main groups of question associated 
with printing: how to get particular mod- 
els of printer to respond to print instruc- 
tions from the computer, and how to 'cus- 
tomise' the driving programs to allow the 
printer features to be used to the full. This 
article is mainly concerned with the sec- 
ond category, but here is some comment 
on the first one to start with. 


Printerports 


The basic QL has only two external ports 
| for connecting to printers — those marked 
SER1 and SER2. So there is provision for 
only serial printer connection, where data 
is sent in a stream of 'bits', at speeds up to 
9600 baud. This gives an effective trans- 
mission rate of around 1000 characters 
per second. Some printers cannot handle 
this rate of data input, and a lower one has 
to be set, but that should not be necessary 
with the type of printer sold these days. 
Since printing speed is usually no more 
than about 150 characters per second, the 
printer needs to be able to buffer the input 
to some extent. When large documents 
are being printed, a buffer is a very handy 
device to have; it can be in the printer 
itself, or set up in the QL (some programs, 
such as Taskmaster, allow you to set buff- 
ers for this purpose). 


Parallel 


Typical office PCs have a parallel output 
port, which allows data to be sent to the 
printer a byte ata time, rather than a bit at 
a time. That is, a complete character is 
sent. In general use, there does not seem 
to be any great merit in selecting one 
method rather than the other, since they 
both work satisfactorily, and the printer is 
tooslow a device to work at the maximum 
rate at which the computer can send data 
anyway. It is, however, simpler to use 
parallel transmission, mainly because this 
does not demand that the user answers 
questions (what is the parity, number of 
data bits etc?). The decision tends to be 
made for you by hardware considera- 
tions. Printers are mostly supplied fitted 
with a parallel interface, making it nec- 
essary to purchase a separate parallel-to- 
serial converter module if connection 
through a serial port is used. Some print- 
ers have both a serial and a parallel inter- 
face fitted, but the additional interface is 
normally an extra-cost fitment; this is one 


In the first of two 
articles about living in 
peace with your 
printer, Bryan davies 
looks at printer ports, 
dip switches, printer 
drivers, Install _bas 
and page lengths 


of the main points to check when talking 
to a dealer about buying a printer. 

One advantage of using serial connec- 
tion shows up when linking two comput- 
ers toone printer; far fewer wires are used 
for the serial connection than the parallel 
one, so that making a switch is a much 
simpler job. The printer parallel connec- 
tor has 36 pins, whereas the PCC serial 
connector on the QL has only six (and 
only three of them are actually used). The 
cost of cables and switch to link two 
computers to one printer for parallel data 
transfer is typically about £50, but you 
can pay much more if you don't shop 
around. You can quite easily make up 
both switch and cables for serial transfer, 
at a cost of around £5 to £15, However, 
you will most likely have to buy a paral- 
lel-serial converter (Miracle sell the best- 
known one) as well, at about £30. 


Interface 


The choice only arises when the QL has 
an interface fitted with a parallel port, 
such as the old Medic or Sandy SuperQ 
interfaces. When the QL is to be connected 
permanently to a serial device other than 
a printer —- a modem, for instance - you 
may be forced into getting this type of 
interface. The same applies if you want to 
run, say, a dot-matrix printer and a daisy- 
wheel one from a single QL, when it may 
be convenient to use one in serial mode 
and the other in parallel (although I don't 
think many people can be successfully 
driving two printers at the same time - 
certainly not if they wish to carry on using 
the computer for another job). Note that 
the Serl and Ser2 ports are not wired the 
same way; it is sometimes stated that a 
printer should be tried on Ser2if it doesn't 
work onSer1, but Ser] is the portnormally 
used. To allow for variation in interpre- 
tation of the ‘Standard’ definition of a 
serial (RS-232) port, Sinclair arranged one 
port to be, effectively, a transmitter, while 
the other is a receiver. 

Ser2 can be made to be just like Ser if the 
wiring to the connector fitted toitis altered; 
read the section ‘Concepts —-Communica- 
tions RS-232-C' in the QL User Guide. In- 
stead of using pins 1,3 and 4 (as on Ser1), 


you have to use 1, 2 and 5 to make the 
same connection from Ser2 to the printer. 
Ifyou havea QL witha D-type of connector 
for the ports, the equivalent wiring for 
Serl is also to pins 1,3 and 4. 


Dip switches 


Setting up the printer can be tedious. 
Printers often have sets of small switches 
— usually the dip (dual in-line pin) type - 
which permit configurations to be set. For 
example, the default (that is, normal) type 
style can be set as Pica (10 characters per 
inch) or Elite (12 characters per inch) or, 
maybe, near-letter quality (also 10 charac- 
ters per inch, but better-formed charac- 
ters than Pica). The character set can be 
the USA standard, or the UK set, or oth- 
ers. Paper size can be set. You have to go 


through the process of setting /checking | 


these switches, as instructed in the manual 
with the printer, before you connect 
printer and QL together and start trying 
to print. 

The settings made with these switches 
can - in many cases — be over-ridden by 
software commands from the QL, so you 
are not committed to using only Pica, 
USA characters, quarto paper, etc., just 
because you have set these functions with 
the dip switches, but you do need to tell 
the printer what its basic, start-up con- 
figuration should be. 

One frequent problem, is the printing of 
various other symbols when the English £ 
(money) sign is intended. If there is a UK 
character set in the printer, this can be set 
with the dip switches, and the £ should 
then appear on the paper when that key 
has been used on the keyboard, but this is 
not the only way to obtain it. You can, for 
instance, set the USA character set, which 
will very likely produce a # sign from the 
(QL) £ key initially, but the printer may 
have more than one character code for 
producing the £ and you can send a con- 
version instruction from the QL to tell the 
printer to use one of its built-in £ signs 
when the QL £ key is pressed; this will not 
affect the use of the # key, which should 
still produce the printed # sign, which is 
desirable in some technical applications 
(the # sign is often used to indicate num- 
bering, and it indicates pounds weight in 
the USA). The translation sequence 96,6 
(both codes being decimal) should work 
on a variety of Epson-compatible dmp 
printers; 96 is the code produced by the 
QL when the £ key is hit, and 6 is the code 
recognised by the printer for producing 
the £ sign from its built-in set. 


Page length 


A switch setting that can cause later 
trouble is that for paper length. The op- 
tions are usually 11 inches or 12 inches, 
and the setting at the time of shipment 
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depends upon where the printer is intended 
to be used. US standard paper is 1] inches 
long, whereas A4 is 11°/s inches. The 11 
inch setting is suitable for both cut sheet 
and continuous A4 paper, with my Kaga- 
Taxan (Canon) printer. Getting the printer 
to move continuous paper so that the top 
of the next page moves up to the correct 
position each time is an art in itself, and is 
almost certain to be a matter to be dealt 
with in the QL software, rather than with 
the dip switches. 


Printer drivers 


Setting up printer drivers: for key-com- 
binations joined by dashes, such as CTRL- 
C, hold down the first key and tap the 
second one. 

This is the area where the main trouble 
seems to occur. Programs which provide 
printed output have some form of 'printer 
driver' routine, to format the text produced 
with the program into a 'shape’ recognis- 
able by the printer. Even such basic things 
as the codes used for characters can differ 
between keyboard and printer. No matter 
what the program, the screen never has a 
WYSIWYG presentation — the printed out- 
put can look very different from what you 
see on screen. It amazes me that programs 
are referred to as having ‘what you see is 
what you get' presentation, when they 
clearly make no more than token efforts to 
show text as it will appear from the printer. 
Quill is better than many word-processing 
programs in this respect; it does, at least, 
indicate areas where textis ‘non-standard’, 
such as making bold characters white in- 
stead of green, showing underlining on 
the screen, and using different character 
shapes and positions for superscript and 
subscript. Typical PCs seem incapable of 
showing these features adequately and the 
PC version of Quill has to use non-obvious 
representations of these features, such as 
highlighting, and the same colours for dif- 
ferent features (superscript, subscript and 
italics look the same on my PC). Be happy 
that the QL and Quill are so good. 


Text codes 


The nearest to true WYSIWYG I know of 
is the text®’ presentation, where characters 
can be different styles, sizes and colours, 
and there are no ‘surplus’, non-printing 
characters displayed on-screen. The ‘far 
end’ of the spectrum here is the typical text 
editor program, which is designed prima- 
rily for program writing, and makes no 
attempt to alter screen characters to match 
what will appear on the printer. The pro- 
gram in this category which is most spo- 
ken of is The Editor, there are many good 
reasons for using this program, but the 
need to generate — and display on the 
screen —a set of codes for almost all printer 
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typeface functions can put users off. 

One good point in the later versions of 
this program is that these special codes do 
not count as columns on the screen (when 
in Document mode), which avoids the 
problem present in Quill of having line- 
justification upset when the codes are re- 
moved at print time. In the extreme, printed 
lines from Quill can look a centimetre or so 
shorter than they should, because of the 
gaps left by codes which have been re- 
moved; something can be done about this 
problem, however (see later). 


Translation 


Try to envisAGE what is required be- 
tween computer and printer. Effectively, 
they are two devices speaking rather dif- 
ferent languages, and a translator has to 
convert the output from the computer into 
‘printer speak’. Whatever the program, 
printer, or computer, the translation 
process required for printing is essentially 
the same. The translator is called a printer 
driver, and isa program inits own right. A 
driver with capability to cause all func- 
tions ona dot matrix printer to operate can 
be quite large — for example, over 40 KB for 
The Editor. The fact that the Printer_dat file 
for Quill is only a hundred or so bytes long 
is only part of the story, since the Quill 
program file itself contains most of the 
driver; many printers will produce reason- 
able output without the Printer_dat file 
being present. 


Embedded 


What is being converted is the codes pro- 
duced by the text program. Examples may 
best explain what is required. When you 
press F4 then B, in Quill, the screen shows 
following thecharacters in white, as a rep- 
resentation of darker than normal charac- 
ters. A typical printer has two ways of 
making characters dark- emphasised print, 
or double-struck print. Each character can 
be printed with its lines slightly wider than 
usual, or printed twice in the normal 
fashion. 

There may be little to choose between the 
appearance of the two styles, but some 
other features are incompatible with one 
or other of these two. For instance, empha- 
sised print may work only with Pica (10- 
pitch), making it necessary to use double- 
strike with Elite (12-pitch). | find double- 
strike most flexible, and the code the Kaga/ 
Canon printer expects to see coming from 
the computer to switch on this feature is 
ESC-G. The printer driver has to look 
through your document, at print time, for 
the Quill codes for F4-B, and replace them 
by ESC-G each time they appear. With 
Quill, you don’t need to bother about what 
the codes for F4-B and such are, as they are 
‘embedded in the program, but any codes 
other than the four produced using the F4 


LOVE YOUR PRINTER 


key have to be specified by you and, in this 
respect, Quill and Editor are similar, 

At this point, it is perhaps desirable to 
refer to specific printer drivers, and that 
for Quill is the one you meet first. It is 
likely you will be at least partly equipped 
to deal with other drivers once you have 
mastered setting Quill up. So as not to 
make the job unduly difficult, it is desir- 
able to have the 2.35 version of Quill, 
which has better printer driver features 
than the earlier versions had. The follow- 
ing points assume the 2.35 version is being 
used, although the procedure is similar 
with the earlier ones. 


Install_bas 


This SuperBasic program configures Quill 
to produce the kind of printed output you 
specify. Run the program by keying-in 
LRUN mdv1_Install_bas (or flp if youhave 
converted it fordisk use). You will normally 
accept the first option offered, fora standard 
serial printer; if you wish to use the driver 
over a network, to a parallel printer, or to 
any other non-standard device, choose the 
second option. Apart from specifying a 
different device name, the procedure for 
setting up the driver is the same, which- 
ever option is chosen, but the program 
treats the versions slightly differently. 

When you choose the standard port op- 
tion, it is no use trying to persuade the 
program to acceptn2_Ser1 as the port to be 
used, because it will not recognise it. The 
standard port has to be called Ser] or Ser2; 
using the non-standard/ parallel option, 
the port can be called n2_Serl, n1_Ser2, 
Parl, Par2, etc. 

The program displays a list of printer 
types for which drivers are supplied; if 
you are lucky enough to have one of the 
listed printers, all you need to do is use the 
up/down cursor keys to select the one, 
and press F5 to install the stored printer 
driver for it. 


Compared codes 


More likely, your printer will not be on 
the list, and you have to decide which of 
the listed types is most similar to yours. 
For 'Epson-compatible’ printers, the best 
bet is EPSONFX; this should, at least, en- 
able you to print, using the basic functions 
of your printer. Should you have no idea 
which driver is most suitable to use as a 
basis, select each one in turn, open your 
printer manual, and compare the codes 
used for the functions, by Quill and your 
printer. Make notes for each, and decide at 
the end which needs least modification. 
Select by F1 for COPY, not F2 for EDIT, as 
you need to produce a new, modified 
version of the stored one, not to change it. 
(As always, you should not be doing any of 
this if you haven't made a backup copy of 
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the Install_dat and Printer_dat files first). 

The first item on the list of entries then 
displayed is Driver name, and you enter 
some recognisable abbreviation for your 
printer here. Whatever name you choose, 
it will not appear on the final file — that will 
always be Printer_dat. If you havea utility 
program witha 'View’ facility (such as Ice ) 
you can look at Printer_dat and see the 
name and function table entries for the 
current driver. The Port entry is serl or 
similar —no spaces. Baud rate should be set 
to the highest rate your printer supports; 
9600 is usual. It is worth trying a lower 
setting if subsequent printing reveals 
missed blocks of data. 

Parity has to be checked in the printer 
manual also; look under a heading such as 
‘Data Transfer’ or ‘Communications’. If no 
information is given on this, start with the 
setting NONE, and change it only if there 
seems to be some data transmission prob- 
lem. These last two entries do not appear 
when setting up a driver for a non-stand- 
ard port, which is perhaps reasonable for a 
parallel port connection, but I don't why 
they are missed out for a network connec- 
tion through a serial port. 


Page lengths 


Lines/page is fairly obvious, and 66 is 

the default setting, both in the printer driver 

j and within Quill (see Page size on the 

] Design screen), An A4 page is actually 
long enough for 70 lines (at the standard 
six lines/inch), and you may want to use 
this setting, if you have reason to squeeze 
as many lines as possible onto a page. Note 
that your printer may not allow you to 
position the paper so that the first print 
line is at the top edge of the paper. 

There is not much room for manoeuvre 
with cut sheets, but you can set continuous 
paper so that the top edge is immediately 
above the print position, and get an extra 
few lines. Beware doing this on the first 
sheet though, as the paper is liable to get 
mangled if you do. Check the Upper mar- 
gin setting on the Design screen if a big gap 
is being left at the top of the page; the 
default setting for the Upper margin is six 
(lines), which usually means the printer 
upspaces 1 inch before printing. Add this 
to the 'dead space' - the gap between the 
print head and the top edge of the paper 
when printing is started — and you can lose 
about 10 lines. 


Be clear 


Depending on paper and printer, an Up- 
per margin of 0-2 should be usable. It is 
sometimes desirable to let the printer 
upspace for 1 or 2 lines, as it may have a 
tendency to print some of the first lines too 
close together when the margin is set to 0, 
especially if you are in the habit of winding 
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continuous stationery backwards before 
starting printing. 

It is very important to get clear in your 
mind just what you are specifying by 
‘Lines / page’, wherever you come across 
the term. Programmers are not consistent 
in their use of the term, and instructions 
sometimes fail to make the different uses 
evident. Telling the printer there are 70 
lines per page, through the printer driver, 
does not commit you to having 70 lines of 
text printed on every page, but it does 
allow the printer to make full use of the 
paper, if required to do so. 


Finding errors 


When you enter Page size with the De- 
sign command, working in Quill, you are 
stating how many lines of text you want on 
the printout (including any Header or 
Footer lines specified), and this value can 
be set to give a printout whichis within the 
printer's range, and looks acceptable. If 
you use continuous stationery, and have 
difficulty persuading the printer to move 
to the top of the next page, or to print what 
you put on the bottom of the screen page 
correctly, you have two places (maybe 
more) to look for the error — the dip 
switch(es) inside the printer may be set to 
the wrong paper length, orthe combination 
of upper margin, lower margin, header 
and footer settings may not add up to the 
Page size set on the Design screen. 

The standard number of characters /line 
is 80, based upon the Pica fount, which 
gives 10 characters perinchas used indmp 
(dot matrix) printers. That leaves 1'/sinches 
total for left and right margins. As with 
lines/page, there are some people (cer- 
tainly myself) who stuff more onto a page 
than secretarial school would approve of. 
Apart from this, some also use Elite fount, 
which gives 12 characters per inch. 


Mixed sizes 


In some circumstances, it may be essen- 
tial to use condensed print and reduce the 
margins to a minimal size to get all the 
required text onto a page, such as with 
tables of values. 80 characters are not 
enough to cover these requirements, and 
you can set the value to whatever your 
printer will accept. This setting is actually 
specifying the width of paper the printer 
will use, as well as the number of charac- 
ters. Condensed print gives about 17 
characters /inch. If the specified charac- 
ters /line value is 80, only 80 characters can 
be printed ona line but, if the value is set to 
whatever maximum number the printer 
can cope with, then that number will be 
printed. Typically, a printer can manage 
132-134 condensed characters on a line. 

This brings up a problem which you will 
meet if you mix character sizes in a docu- 
ment; generally, you will want the text to 
fitin between the same margins, regardless 


of character size and you need to devise a 
set of values — for left and right margins, 
and Characters /line-—that achieve this. As 
far as the printer driver is concerned, it 
doesn't matter too much what its setting 
are, because the settings made in Quill 
when a document is prepared will over- 
ride the driver settings. As an extreme 
example, you can set the driver to 10 Char- 
acters /line and 10 Lines/ page, but a docu- 
ment with margins 60 apart and with 50 
lines of text will be printed as it appears on 
the screen. 

There can be some limitations on this. 
With the values given, you might find an 
indented paragraph first line becoming 
‘outdented’, and ending short of the right 
margin. My own feeling is that you might 
as well set the driver to the maximum 
values the printer can cope with — say 134 
Characters/line and 70 Lines/page — re- 
gardless of what character size you nor- 
mally use. This avoids the need for having 
two printer drivers just to cope with docu- 
ments typed in 10-pitch and 12-pitch (it 
will be explained later how the different 
character sizes can be "called" during typ- 
ing of the document). 


A wrinkle 


The Continuous Forms setting deserves 
some consideration. The obvious answer 
to insert is ‘No’ for cut sheets of paper, and 
‘Yes’ for continuous stationery. One 
drawback I find to answering ‘Yes' for 
continuous paper is that you can't (neatly) 
stop printing when you notice that some- 
thing is coming out wrong. Therefore, I 
still insert ‘No’ even though continuous 
paper is loaded most of the time. It does 
mean having to hit a key at the end of each 
page, to get the next one printed, but it 
allows you to 'vet' pages one by one, and 
call the print off when a mistake is spotted. 
What if there are many pages to print and 
you know there are no mistakes? Simply 
find yourself a heavy weight, about the 
size of the ENTER key (I use a small 
magnet, although it would be preferable to 
use something non-magnetic, so close to a 
microdrive). Wait till the first 'Press Enter’ 
message appears, at theend of page 1, then 
put the weight on the ENTER key to hold 
it down. That will ensure that printing is 
continuous from there on, but you need to 
be around when it is nearly finished, be- | 
cause you will get an endless stream of | 
blank pages after the final page of text has 
been printed unless that weightis removed 
in time! The End of line code defaults to 
CR,LF, and should be left at that unless 
your printer automatically line feeds with 
just the CR (carrier/carriage return) code. 

That is the basic section of the printer 
driver. From there on comes the section in 
which you can ‘make your mark’. All the 
following entries can be set to give printer 
functions which you require. These will be 
dealt with in Part 2 of this article. 
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oot files are those essential col- 

lections of commands which ease 

the chore of loading useful pro- 

grams such as Quill, Desktop 
Publisher, Flashback and so on. Due to 
the comparative size of most quality soft- 
ware packages and the capacity of a 
single microdrive cartridge, early boot files 
had the simple task of loading the single 
program contained on the microdrive. 
With the widespread introduction of floppy 
disks which are faster, safer and hold 
roughly seven times as much as a 
microdrive cartridge, boot files have had 
to adapt to cope with a changing demand. 

In the February issue of QL World the 
rudiments of the various program-loading 
commands were covered from a non- 
technical viewpoint in order that as many 
QLusers as possible could begin to modify 
boot files to suit their own needs. This 
month's article examines the way in which 
a boot file for a disk full of Psion programs 
might be written. Again, the emphasis is 
on simplicity so that non-programmers 
can benefit from modifying their own boot 
programs. 

Before starting to play with boot files, 
one worthwhile hint is to remember to 
copy any existing boot file to a safe place 
so that, if your replacement fails to work 
for any reason, you can copy the original 
back. To take a copy of a boot file, type in 
the command: 


COPY FLP1_BOOT TOFLP1_OLDBOOT 


Asecond hintis to make sure that before 
testing any boot file it is itself saved to disk 
or microdrive. Many is the time that | have 
developed a boot file which eventually 
deletes itself, only to find that | had forgot- 
ten to save it before testing it, losing all the 
work that went into it. A final thought for 
the more advanced dabblers: do not for- 
get to test a boot file following a full reset 
and a 'warm' reset of the computer before 
declaring it error-free. 

The boot program developed for this 
month's article assumes that all of the 
Psion programs are stored on a single 
floppy disk. It works whether or not you 


are lucky enough to have Qram or Qpac2 
loaded on your machine. It will work with 
a purely microdrive-based system, but 
the advantages are fewer due to the need 
to switch microdrives to load different Psion 
programs. Of course, it is perfectly possi- 
ble to take this boot file as a model for one 
which loads all sorts of executable pro- 
grams other than those bundled with the 
QL. 

From the user's perspective, the exam- 
ple boot program produces a menu from 
which any Psion utility can be selected. 
On exiting from the Psion program, the 


SUPER 


BASIC 


programs with the concluding part of Mike 


Make the most of your multi-tasking 
Lloyd's investigation into boot files. 


menu re-appears and another selection 
can be made. 

Without Qram or Qpac2 fitted and extra 
memory on board, only one Psion pro- 
gram at a time can be loaded, but this 
ought to suit most people's working ar- 
rangements. 

The reason that the menu can re-appear 
is that a SuperBasic program — the con- 
tents of a boot file form a simple SuperBa- 
sic program — can be retained in memory 
even when executable programs, such as 
Quill and Archive, are loaded. Indeed, 
larger QL systems can have three or four 


LISTING 1: EXAMPLE BOOT FILE FOR PSION DISKETTE 


100 REPeat LOOP 

110 WINDOW 512, 256, 0, 0 
120 MODE 4: CSIZE 1, 0 
130 PAPER 4, 0: CLS 
140 BLOCK 256, 200, 
150 BLOCK 252, 198, 
160 PAPER O: 


128, 21, 
INK 7: UNDER 1 


127, 20, 7 


(Prepaié Screen) 


180 UNDER 0 

190 : PRINT 
200 : PRINT 
210 : PRINT ” 
220 : PRINT 
230 7 : PRINT 
240 : PRINT “ 
250 : PRINT 


260 LET KEY$ = INKEY$(-1} 


170 AT 3, 20: PRINT "PSION PROGRAMS DISK MENU" 


QUILL" 

ARCH1VE" 

ABACUS" 

EASEL."' 

SUPERBAS IC™ 
FANFOLD PAPER" 
CUT SHEET PAPER" 


(Draw Menu) 


{Read keypress) | 


270 «IF KEY$ MAN: 
280 IF KEY$ see 
290 IF KEY$ MG's 
300 iF KEY$ "Dp": 
310 JF KEY$ a 
320 =F KEY$ eee 
330 DELETE FLPI _PRINTER_DAT 


EXIT LOOP 


350 ENDIF 

360 IF KEY$ == "G" 

370 DELETE FLPi_PRiINTER_DAT 
390 ENDIF 


400 END REPeat LOOP 


EXEC W FLP1_ QUILL 
EXEC_W FLP1_ARCHIVE 
EXEC_W FLPL1_ABACUS 
EXEC_W FLP1_EASEL 


340 COPY FLP1_FANFOLD_DAT TO FLP1_PRINTER |_ DAT 


3860 COPY FLP1_CUTSHEET_DAT TO FLP1_PRINTER | DAT 


(Clear screen) 
410 PAPER O: CLS 


(Act on keypress) 
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of the Psion programs and abootprogram 
loaded simultaneously. While the execut- 
able program is running, the SuperBasic 
program is dormant: it receives no 
keypresses, does not amend the screen 
and its commands are not ignored. When 
the executable program is finished, the 
computer returns to the SuperBasic pro- 
gram and resumes carrying out its com- 
mands. 

Knowing this, the design for a boot file 
for a disk full of executable programs can 
quickly be sketched in as a loop in which 
there is amenu-drawing segment, a pause 
to pick up a keypress from the user, anda 
section which controls what happens ac- 
cording to which key has been pressed. 
There is an enormous benefit in keeping 
boot files short and simple: concise boot 
files load quickly, enabling you to reach 
the important, working programs with the 
least delay. 

Listing one shows the complete boot 
program, emphasising its simple struc- 
ture. Within the loop, the default window 
(Window #1) is re-sized to fill the entire 
screen and cleared down to a stippled 
green and black colour which is easier on 
the eye than solid, vibrant green. Mode 4 
has been selected to make the menu text 
more readable, because for my money 
the double-width characters of Mode 8 
are too large and clumsy to be easily read. 

QL users still plugged into a television 
set rather than a dedicated monitor are 
catered for by widening the gaps between 

the characters using the CSIZE 1,0 com- 
| mand. Their needs are also recognised by 
the positioning of the menu text so that it 
is well within the restricted screen area 
visible on tvs. 

Onto this blank screen the program next 
places a black rectangle outlined in white 
which will be used to display the menu 
options. The outline is merely the outer 
edge of a solid white block which is slightly 
larger than the black block which eclipses 
it. Suitable foreground and background 
colours are chosen for the text and the 
UNDER option is set to ‘on’ before the 
menu heading is printed. 

While the menu heading is white on 
black and underlined, the options them- 
selves are in green ink and not under- 
lined, as ordained by Line 180. Instead of 
some fancy loop containing a READ 
statement taking information from DATA 
lines, the program has been kept extremely 
simple by using straightforward AT and 
PRINT commands for each option. It is in 
the nature of boot files that they are fre- 
quently amended to include or exclude 
menu options, so simplicity is usually 
welcome. 

Each menu option begins with a letter. 
To select an option the user has to press 
the appropriate letter. The INKEY$(-1) 
function waits until a key is pressed and 
then stores the keypress in the KEY$ 
variable. The following few lines repeat- 
edly test KEY$ in order to take the rel- 
evant action, ifany. Note the use of double 
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equals signs to indicate that both upper 
and lower case keypresses are accepted 
as being valid. If an incorrect keypress is 
encountered the loop simply cycles again. 

Most of the menu options cause an 
executable program to be loaded and run. 
On exiting such a program, the loop is 
repeated, drawing the menu once more 
and waiting for a further keypress. If the 
‘SuperBasic’ option is chosen, the loop is 
exited and the screen is cleared before 
the program terminates. When the boot 
program has been fully tested, an extra 
line containing the NEW command could 
be appended to the end of the program so 
that when the "SuperBasic" option is 
chosen the QL's memory is cleared out 
ready for a new SuperBasic program. 

In addition to the mundane task of 
launching other programs, boot files often 
include useful extras which are either 
implemented automatically before the 
menu is drawn, or are offered as menu 
options. A good example of the latter type 
is included in Listing one at options F and 
G. 


Ram disk 


An annoying feature of Quill and its 
stablemates is that there is no easy way to 
change features in the printer driver while 
Quill is running. | often need to print out 
quick drafts of articles on continuous 
fanfold stationery before committing the 
final article to higher-quality cut sheets 
printed in near letter quality (nlq). The 
Psion printer driver can be configured to 
meetone requirement or the other, but not 
both together. Therefore, | have devel- 
oped two printer driver files, one for draft 
quality printouts using continuous sta- 
tionery and the other for niq printouts on 
single-sheet stationery. 

Options F and G of the boot menu swap 
between these two printer drivers, allow- 
ing me to print in exactly the style | want. 
The preliminaries required to introduce 
this system are a bit long-winded. Firstly, 
load the Psion printer driver editing pro- 
gram, an excessively long and over- 
complex SuperBasic program which 
seems to take an age to sort itself out. 
Create or modify a driver, install it as the 
‘current driver’ and save all the drivers. 
Then, stop the program (using CTRL- 
SPACE as you would for any other Super- 
Basic program) and copy the file called 
‘printer dat' to another file which should be 
given a meaningful name, such as 
‘tanfold_dat' or'nlq_dat'. Ifthere is another 
driver you would like to develop, run the 
program again. You will notice that there 
will be.a very long, unavoidable wait be- 
fore the first menu options are displayed 
again. 

Now that you have a set of files each 
containing exactly one printer driver, itis a 
simple matter of remembering to copy the 
one you want to use into the file called 
'printer_dat’ before printing anything. The 
'printer_dat' file is the one which the Psion 


programs look for each time the ‘print’ 
option is selected. 

If you are using Qram or Qpac?2 it is easy 
to CTRL-C out of the Psion program, 
select a new printer driver from the menu, 
and then CTRL-C back to the program to 
use the printer. Readers without either of 
these utilities will have to make up their 
minds before calling up Quill, or whatever, 
because they can only return to the menu 
by exiting permanently from an executable 
program. Utilities do not have to be se- 
lected from a menu. It is often useful to 
precede drawing the menu with a number 
of commands which load background 
programs and features. Digital Precision's 
Lightning is a perfect example of this. If 
you have Lightning, you will definitely want 
to use it to speed up the Psion programs, 
and so an additional line can be added to 
the beginning of the boot program which 
reads: 

50 LRESPR flp1_Ing_text_ext 

If you are a spreadsheet user, itis worth- 
while to add Lightning's maths extensions 
to speed up calculations. 

Before anyone complains that their Su- 
perBasic does not acknowledge the 
LRESPR command, let me make it clear 
that LRESPR is provided by Super Toolkit 
2and by some disk interfaces. If LRESPR 
is not available to you, you will have to use 
the RESPR, LBYTES and CALL sequence 
of commands detailed in the February 
article. 

Another example of an incredibly useful 
background facility is the ramdisk con- 
tained in the Qram suite of programs. A 
ramdisk behaves exactly like an extremely 
fast diskdrive, except that as soon as the 
power is removed from the QL all its 
contents are lost. Ramdisks can be for- 
matted in a second or two to any size 
commensurate with the available ram on 
the QL. Files can be saved to the ramdisk, 
loaded back again, modified, and so on. 

When the Psion programs are being 
used, a ramdisk is extremely handy for 
storing printer drivers. If data is being 
swapped between programs, for instance 
when datais being extracted from Archive 
to be graphed in Easel, a ramdisk is the 
perfect medium for holding the temporary 
data file. With additional memory, a QL 
can easily hold Archive, Easel and a 
substantial amount of data on a ramdisk. 

Regular Quill users will know that the 
program becomes extremely tempera- 
mental when documents of more than 
about 2,500 words are being worked on, 
especially if many amendments are being 
made. When Quill is loaded onto an oth- 
erwise empty and expanded QL its appetite 
for large documents is enormous, but the 
resulting indigestion is best avoided. 

One answer is to format a large ramdisk 
which reduces available ram to around 
150K before loading Quill. The 
wordprocessor should be configured to 
create its temporary working file on the 
ramdisk (use the config_bas program 
supplied with Quill to achieve this), so that 
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SUPERBASIC 


the best of all worlds is achieved. Quill will 
handle very large documents with high 
speed because all file activity is kept within 
the computer's ram, but the problems nor- 
mally associated with very large docu- 
ments are avoided. Of course, an even 
better answer is to use one of the more 
recent word processors on the QL market, 
such as Editor, text®’ or the new Perfection 
program from Digital Precision, all of which 
cope admirably with novella-sized docu- 
ments. 

To establish a ramdisk, a boot program 
should have a line such as this before the 
main menu loop starts: 


70 LRESPR flp1_ramprt: FORMAT 
ram1_200 


Other contenders for the pre-menu instal- 
lation treatment are the disk-based Super 
Toolkit 2 commands, Simon Goodwin's 
Turbo Toolkit, the Qram file manager, 
Qpac2, and so on, 

Before concluding this review of boot 
programs, it is worth mentioning the 
menuing facilities offered by the recently- 
released Qpac2 program from Tony 
Tebby's QJump software house. Qpacz is 
primarily a memory-manager, extending 
the functionality of Qdos in much the same 
direction as Tebby's earlier Qram suite. 
However, Qpac2 also includes the Hotkey 
2 environment which is excellent for devel- 
oping powerful menus to control all man- 


Wiewdat OTS2-0T100 OL TERMINAL EMULATOR 
“Een deluxe commnicatieprogromma van Kualsort’ 
Hultitasking for electronic mail, PRESTEL etc, 


CET dounload. Phone directories for ALL (yes ALL) 
modems for the GL, qutodial (uhere poss) ond 


ner of multi-tasking activity. 

The essence of Hotkey 2 in its 'menu 
mode' is that a single keypress can set off 
a SuperBasic command, or even a small 
program, which launches an executable 
program. The keypress can be almost 
anything the user wishes, although to avoid 
confusion with valid keypresses used within 
programs it is sensible to stick to combi- 
nations which include the CTRL or ALT 
key. It is relatively easy to remember that 
CTRL-Q means ‘run Quill’ and CTRL-E 
means ‘run Easel’, but CTRL-A cannot be 
used to refer to both Archive and Abacus. 
As more and more hotkeys are introduced 
they become less easy to remember, but 
with Qpac no feats of human memory are 
required at all. 

Instead, Qpac allows users to create 
‘buttons’ with which to activate programs. 
A button is a small window containing a 
program's name. Button windows can be 
collected in a 'button frame' and displayed 
only when required. An arrow onthe screen 
is moved using the cursor keys to light up 
the required button and then the Enter key 
is pressed. This has the effect of loading 
and running the program associated with 
that button. 

Buttons have many other uses. They can 
replace the menu options for changing the 
Psion printer drivers so that the drivers can 
be changed without the Quill document 
ever leaving the screen. Buttons can also 


supplement the menus of other programs. 
For example, the awkward menus used in 
Desktop Publisherand to a lesser extent in 
Professional Publisher have always irri- 
tated me. Now, the boot file which loads 
Pro Pub also loads Lightning to speed up 
screen handling and loads parts of Qpac2 
to manage a full button frame containing 
the menu options which | particularly find 
useful. The result is that Freddy Vachha is 
happy because | don't moan at him, and | 
am getting the full performance from Pro 
Pub without the limitations imposed by the 
program's native menu options. 

Be they ever so humble, or be they the 
sophisticated products of the Qpac2 sys- 
tem, boot files are of great value in the QL 
world. It is perhaps significant that a large 
proportion of the programs forwarded for 
consideration for publishing by this maga- 
zine deal with boot files of one sort or 
another. It is also significant that most of 
them are far too personalised to be of 
interest to other readers. The main benefit 
of having boot programs is that they can 
tune commercial products to meet per- 
sonal requirements. Use the boot programs 
provided with software by all means, but 
rather than complain that commercial pro- 
grams as provided are not exactly config- 
ured to your system or to your needs, take 
control of your software and change your 
boot programs to bring your programs into 
line. 
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THE NEW 
USER GUIDE 


The second instalment of our New User Guide for SECTION 
the Sinclair QL. This month, Mike Lloyd parallels 
the contents of Chapter 2 of the original User 
Guide, but expands the scope to include what he 
describes as ‘absolutely everything you need to 
know about computer programming’. 


eaders of last month’s introductory part of the New User Guide to the QL will now know how 

direct commands are issued to the QL — and what happens when the command is not 

recognised for any reason. They will also know about variables — the named memory 

locations which are used to store single pieces of numeric and textual information in the 
computer's memory. Figure one is a reminder of some of the features of variables, based on the 
analogy used last month of shoe boxes holding pieces of information. 


ASS|GNMENT OF VALUES TO VARIABLES 
es: LET Sales = 1824.72 


[Variables ending in $e 
Etas held text if 


1024.72 - 802.25 = 222.47 y) 


e Calculating a variable value 
eg: LET Prefit = Sales - Costs 


Wh . Direct commands are all very well, but they force the QL to act as little more than aclever calculator. 
at isa The value of a computer arises from its ability to store sequences of commands and then to carry 
rogram 9 them out automatically. A sequence of commands is called a program. Incredibly, there are only 

p g 5 three fundamental things to learn about programs: all the rest is window-dressing. 
¥ Direct commands and commands in a program are very closely related. A direct command 
becomes a part of a program if it is given a line number. Line numbers can be any whole, positive 
number less than 32676. The upper limit is not restricting in any way as even the largest programs 

rarely exceed 3,000 lines. Commands in programs are often known as statements. 

Type in the following short program of two lines: 


100 LET SALES = 240 
110 PRINT SALES * 0.15 


Instead of carrying out the commands the instant that the Enter key is pressed, the QL stores them 
in its working memory. For the programmer's benefit they are also listed on the screen, using 
Window #2. The program is executed only when a direct command is given telling the computer to 
proceed. This command is RUN, so type it in now, remembering not to give this direct command a 
line number. 
Three things may happen. The most likely is that the program instantaneously prints the value of 
16% VAT on sales of £240. Alternatively, there may be a typing error in your program which 
ee produces an error message. Thirdly, if you have accidentally prefaced the RUN command witha line 
number it will be tagged onto the end of the program. 
Having committed our program to the QL’s memory several things can be done with it— and indeed 
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Editing 


Line 
numbers 


Save and 
Load 


What isa 
programmer 


INPUT 


should be done with it — in order to make the most of the computer's programmability. It would be 
nice, for instance, to be able to edit program lines, not only to correct errors but also to amend the 
way the program works. The work required to produce a 200-line program makes it uneconomic 
to type it in each time it is needed. Therefore, programs must be capable of being saved 
permanently and recalled when needed. 

The command to edit a program line is EDIT. The keyword must be followed by the line number 
of the line you wish to edit. For example, to edit the second line of the program listed above, type: 


EDIT 110 


On pressing the Enter key the line will be copied to the command window where it can be edited. 
When Enter is pressed again the amended line is replaced in the program listing. 

It is of course possible to change the line number while editing the line. You may wish to save 
typing, for example, by taking an existing line, editing it slightly, and re-inserting it into the program 
with a new line number. Line numbers in a program must be unique: if you enter a second line 
numbered 110 it will overwrite the existing program line with that number. 

Line numbers are used to sort lines into sequential order, so giving a program line a new number 
can also have the effect of changing its position in the program. Line numbers do not need to be 
sequential. Traditionally, programmers begin programs with line numbers incremented by 10. 
Then, when they are revising the program or adding to it, new program lines using the intervening 
numbers can be added. The program which will be developed during this article will make use of 
this approach. 

The important thing to grasp is that programs are never written like letters — starting at the 
beginning and working through to the end. Programs tend to develop like a painting, starting with 
perhaps the bare outlines and then adding more and more detail until the work is complete. 

When a great deal of care and time has been expended on a program, it is important to be able 
to save and recall it. This is done using the commands SAVE and LOAD. To save a program, type 
in the direct command SAVE followed by a valid filename. Filenames comprise a drive designation 
and an identifying name, and the typical ‘mdv1_ program’ or ‘flp1_test’ constructions will be familiar 
to allQL users. Having saved a program, itcan be reloaded into the Q L's working memory by typing 
in the direct command LOAD followed by the program's filename. 

You are saving a snapshot of your program as it was at the time it was saved. If itis amended after 
being saved, the amendments will not be reflected in the program file. Always save a program under 
construction at regular intervals - every 15 minutes is advisable — during development and 
immediately before switching off the computer. You can estimate the desired frequency of saves 
by the amount of work you would lose, in time and effort — if you were to crash or switch off without 
saving. 


It is time now to change your perception of who you are. When you enter a direct command to the 
computer or type in information you are a user, but when you are constructing a program you are 
a programmer. A programmer's perceptions of a program is very different from a user's. To a 
programmer, a program is a series of text-based commands which form a logical structure. To a 
user, a program is a screen display, a menu of options, a series of requests for information, and 
a set of facilities. The user sees only the facade, while the programmer sees the backstage props, 
ropes and beams which keep the facade in place. 

Fundamentally, programmers provide solutions to users’ problems. Assuming that a user 
requires assistance with calculating VAT on sales and keeping a tally of how much VAT is owed, 
let us write a program which meets this need. 

The two program lines listed earlier in the article can be put to good use in the solution to the 
problem of calculating VAT, so let us begin with them: 


100 LET SALES = 240 
110 PRINT SALES * 0.15 


A fundamental drawback is that the program is only of any use when articles valued at £240 (or 
perhaps £2.40) are sold. The answer is to replace the LET statement with one which obtains input 
from the user. Having already discovered that the keywords for editing, saving and loading are 
EDIT, SAVE and LOAD, it is easy to guess that the keyword to obtain input is INPUT. 

To form a valid command, the keyword INPUT must be followed by a variable name so that the 
computer knows exactly where to store whatever is being typed in. The variable can be for numeric 
information or for text. If the variable is for numbers only, typing text will cause an error message 
to appear. For the moment, assume that users can be trusted to type what the QL is expecting to 
read (although programmers will quickly learn that trusting users to do anything predictable is 
foolhardy). Use the EDIT command to alter Line 100 so that the program reads: 


100 INPUT SALES 
110 PRINT SALES * 0.15 


Now when the program is run (by typing the direct command RUN) a flashing cursor appears in 
Window #1. Type an amount and press Enter and the computer should write beneath it the 
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appropriate VAT value. If not, examine your program to work out why it has failed. 
The program is of limited use because it only copes with a single calculation. The user will be 
selling things all day and will not want to keep typing in RUN to make the program work. After each 
Ec calculation, the user will wish the computer to be ready for the next. 
The simplest way of achieving this aim is to type in more INPUT and PRINT commands, but this 


is wasteful and impractical. The best answer is to find some way of directing the computer to carry R ti 
out the original pair of commands repeatedly. This can be done by telling the computer to go to the epea I ng 
first line in the program. Once again the Basic language has a very obvious keyword and statement comman ds 


syntax which provides this facility. Add this command to the end of your program: 


Program Branching 
and Jumping 


120 GOTO 100 GOTO 


Run the program again and as soon as the first calculation is complete the cursor in Window #1 
is flashing again for another input. As many inputs as you like can be entered. Having made the 
program loop eternally, making it stop has new become an important issue. Simply hold down the 
CTRL key and press the SPACE bar — on the QL the CTRL-SPACE combination equates to the 
BREAK key on many other computers. Its effect is to bring to a halt any SuperBasic program. 

Looking again at the program from the user's point of view (a habit which comes hard to many 
programmers) the screen is devoid of information to explain what is going on. If the program cannot 
be seen, type in the direct command LIST to listit on the screen. Now we are going to insert program 
lines in between existing lines by carefully choosing line numbers. Add the following lines: 


90 PRINT “Type in a sales value and press Enter” 
105 PRINT “The VAT on the above amount is. . .” 


So that the new Line 90 is included in the program loop, line 120 should be edited so that it reads: 
120 GOTO 90 
The revised program demonstrates how important it is to keep the user informed about exactly 


what the screen display means. The program obtains sales values and outputs the VAT, and the 
screen display makes this quite clear to the user, but the program has yet to meet the original 


requirements in full. It does not keep a tally of the total of VAT owed to Customs and Excise. Add j ng 
Some logical thought is needed here to work out how the computer is going to cope with this task. = 
At the beginning of the day, the amount owed in VAT is nothing, because there have been no sales. Vari ables 


With each sale, the total amount of VAT can be described as the previous VAT total plus the VAT 
associated with the most recent sale. These two values can be represented by the variables 
TOTALVAT and VAT respectively. At the beginning of the day, TOTALVAT is zero, so add this to 
the program: 
80 LET TOTALVAT =0 

With each sale, VAT must now be calculated and stored, so add the line: 
108 LET VAT = SALES * 0.15 


It is worthwhile simplifying the next line in the program to read: 


110 PRINT VAT 


This makes the program easier to understand and it saves having to do a calculation twice. 
The value of VAT must now be added to TOTALVAT, hence the addition of the line: 


= 115 LET TOTALVAT = TOTALVAT = VAT 
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IF and THEN 


Branching 


Many novice programmers have a little difficulty understanding how this sort of command can 
make sense. What it means is: fetch the values held in the variable locations TOTALVAT and VAT, 
add them together, and store the result in the variable location called TOTALVAT. As only one value 
can be stored in a variable, the new TOTALVAT value overwrites the old one. 

Run the program again to ensure that it is working. When you have entered a few sales values, 
press the CTRL-SPACE combination to complete the program and find out what TOTALVAT is 
worth by typing in the direct command: 


PRINT TOTALVAT 


Users could do this for themselves, but it is a little messy and means that they need to know a 
little about programming. It would be preferable to allow them to signal the computer that no more 
sales are going to be entered, at which point the computer can print the total VAT for the day and 
stop processing. 

Firstly, how can the users signal that no more sales will be entered? A simple solution is to ask 
them to enter a zero value instead of a sales figure. The second part of the problem is to get the 
computer to make a decision based on the input value, for which another keyword and another 
command are required. 

The keyword is IF and the basic structure of the command in which it appears is ‘IF something 
is true THEN do something’. We want to tell the program to skip the remaining lines of the program 
if a sales value of 0 is encountered; in other words, if SALES equals zero then go to Line 30. Type 
In: 


102 IF SALES = 0 THEN GOTO 130 
At Line 130 we can now include commands to print the total VAT owed for the day’s sales: 


130 PRINT “The total VAT for the day is:” 
140 PRINT TOTALVAT 


Run the program, enter a few sales values and then enter a sales value of zero. If the program 
does not behave exactly as expected, review the lines you have entered and the lines given in the 
text above to see where it is going wrong. To help you, Figure two is a listing of the complete 
program using the rather odd line numbers which have been used as the program has developed. 
For the fastidious, properly spaced program line numbers can be restored by typing in the direct 
command RENUM, short for ‘renumber’. The computer is clever enough to update the GOTO 
statements as the line numbers change. Save the program with a direct command such as: 


80 LET TOTALVAT = 0 
90 PRINT “Type In a sales value and press Enter" <7 


100 INPUT SALES 


i 

! 

! 
| 102 IF SALES = 0 THEN GOTO 130 => 
| 105 PRINT “The VAT on the above amount Is..." I 
{ 108 LET VAT = SALES * 0.15 | 
| 110 PRINT VAT { 
| 115 LET TOTALVAT = TOTALVAT + VAT i 
| 120 GOTO 90 => | 


130 PRINT "The total VAT for today Is:" <¢ 
140 PRINT TOTALVAT 


The arrowed tines Indicate the way the computer is 
forced to move through the program lines — they are 
not part of the program itself. 


When computers are told to go to a specific line number rather than to continue with the next line 
in the program, the process is called branching. Branching can be forwards or backwards, as the 
two GOTO commands used in the program demonstrate. When branching occurs only if acondition 
is found to be true, asin the IF command, thenitis called conditional branching. When the branching 
occurs no matter what the circumstances, as is the case in Line 120, then it is described as 
unconditional branching. 

There is nothing more to program logic than this. Computers perform a series of statements in 
apre-determined sequence until they are required to branch, either conditionally or unconditionally. 
Of course there are many more commands to learn in order to do different things, and there are 
other branching commands than IF and GOTO, but these extra commands simply add to the 
richness of the SuperBasic language: they do not provide any alternative method of executing 
programs. 

It is an absolute truth that all SuperBasic programs, and indeed all conventional computer 
programs, can be re-written so that they consist only of straightforward commands, such as PRINT 
and LET, and the two branching statements IF and GOTO. Of course, programs are faster, more 
efficient and more elegant if use is made of the other commands and structures available in the 
language, so the New User's Guide to SuperBasic therefore continues next month, 
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on the screen, but they are concisely 
stored inside SuperBasic and you can 
use thousands at once with no loss of 
speed. 

Meaningful names make programs 
easier to read and check. FOR K=2 to GS 
could mean anything, while FOR DAY=1 
TO CYAN% is clearly a mistaken substi- 
tution. You probably mean FOR 
DAY=MONDAY TO FRIDAY. If you use 
CAPITALS for new names, and type pro- 
grams in lower case, the helpful QL will 
show up mis-typed names as you enter 
lines. 

If you can't type as fast as you make up 
the program, you may be thinking at the 


Simon Goodwin describes a new SuperBasic command that lets you roll 
your own resident functions, without limit. SET functions are useful, 

fast and accessible to compiled or interpreted Basic. The code appears 
next month. The code appears next month. 


he new QL command SET cre- 

ates resident functions — 

SuperBasic names with values 

that survive CLEAR, LOAD or 
NEW. You choose the names: they can be 
as long, short, arcane or expressive as 
you like, in any language that can be typed 
as Ascii code. 

The programs here are original, but SET 
was first dreamt up by reader Luca Pivato, 
and his colleagues Fulvio and Valerio, at 
Thor developers Human Interfaces in 
Rome. 

SET allows up to 18,000 new system 
pointers or data values of any type, up to 
32K each, accessible to SuperBasic and 
compiled tasks. Strings do not have to be 
dimensioned. The theoretical limit of about 
18,000 names is determined by the size of 
the Name List, which must be addressed 
with 16 bit offsets from the Name Table. 

SET helps to make programs more 
meaningful and lets you store persistently 
useful values, like the address of RESPR'd 
space. | have extended Luca’s concept to 
provide direct access to major ‘pointers’ in 
the SuperBasic system — default ad- 
dresses, system tables, and the like. These 
SET functions update automatically as 
Qdos shuffles tasks and memory. 

The name you want to SET must initially 
be unset; it must not already identify a 
SuperBasic value or routine in the program. 
The QL reports BAD PARAMETER if you 
try to SET a name that already has a 
meaning. It says ERROR IN EXPRES- 
SION if the value you supply is unset or 
does not suit the type of the name. —~ 

As usual for SuperBasic, the first time 
you enter the name you fix the way it will be 
displayed thereafter. It is consistent to use 
CAPITALS to match other resident func- 
tion names, 

Names make program editing easier, 
and therefore more reliable and powerful. 
lf you use a name you can search and 
replace it, without getting confused by 
other instances of the same value that 


mean something quite different. 

The QL imposes various odd schemes 
on us — integer colours 0-7, system vari- 
able offsets and the like. | wish it could 
remember that YELLOW% is 6, rather 
than force me to learn its codes. Names 
take up more physical space on disk and 


SET ENTERS TO CHR$(10) 
SET MARGIN® TO 8 
SET TRUE TO 1 
SEP FALSE TO NOT TRUE 
SET GREENX TO 4 
SET BACKGROUNDX TO GREEN% 
SET SD_XSIZE% TO HEX("1C") 
SET MAXINTX TO 32767 
SET MININT® TO -32768 
SET ASPECT_RATIO TO 16/9 
SET OFF TO 0 
SET PIby2 TO PI/2 
SET Ln2 TO LN(2) 
SET e TO EXP(1) 
SET HELP_DEVICE$ TO “FLP3_” 
SET MY_SERVER$ TO "N2_" 
SET DIGIT$ TO "0123456769" 
SET WHITEX TO 7 
SET BLANCHEX TO WHITEX 
SET PIPE_ID TO CHANNEL_ID( #3} 
SET SYS_VARS TO 163640 
SET SCREEN_STATUS TO SYS_VARS+51 
SET START_TIME TO DATE 
SET SCREEN_RAM TO 131072 
SET WIDTHX TO 124 
SET BY_LINUM TO HEX(“868") 
SET PRINTERS TO "SER" 
SET SPACES TO CHRS{32} 
SET SPACES$ TO FILL$(SPACE$, 60) 
SET STRING_TYPE% TO 1 
SET INTEGER_TYPE% TO 3 
SET NULL$ TO "“ 
# HEAP_START TO 4 
® RAM TOP TO 32 
# KEY_QUEUE TO 76 
# TASK_INDEX TO 100 
# DEVICE_LIST TO 68 
# DRIVE1_LINKAGE TO 256 
# ICE_BUFFER TO 228 
# DATA_DEFAULT TO 176 
# SER2_BUFFER TO HEX("9C") 
# QJUMP_THINGS TO HEX("BB") 
# THORXVI_SHARED_RAM TO 192 
# TRANSLATE_TABLE TO 326 
# MESSAGE_TABLE TO 330 


~ Sample SET values 
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wrongtime, or need DIY Toolkitfiles on disk! 
If you want complete words or phrases to 
appear at one lunge, try Toolkit2 ALTKEYs 
or Quanta’s FKEY20. Humans read whole 
words, not individual characters. Apt words 
are easier to recognise and distinguish 
than arbitrary numbers. 

Even Sinclair thought the computer 
should remember PI; likewise VER$ is a 
resident constant, although its value var- 
ies between machines. Useful addresses 
of fonts or data may be ‘constant’ for each 
session, but dynamically re-calculated and 
SET by your BOOT program. 

The IBM PC reserves a small amount of 
memory for ‘environment variables’ — text 
values, set by MSDOS commands, and 
read by successive programs or ‘batch’ 
routines. These often hold configuration 
details. Programs that check them can be 
told to use different devices with no need 
to patch the program code. 

Commercial QL programs often POKE 
the name of their default device into ‘spare 
memory’, where it may interact with other 
software, or system changes. It is much 
better to SET PATH$ TO "FLP1_" in the 
BOOT program, and read PATH$ thereaf- 
ter. 

Current QL disks use sectors numbered 
from 1 to 9, but it seems likely that more 
sectors will be allowed by higher capacity 
disks on Qdos or super-clones. If you 
want your program to survive the upgrade, 
it's better to use a name, like 
MAX_SECTOR®%, rather than try to recall 
the significance of every ‘9’ in the program 
the day you need to recover a big new disk 
and your program expects the old sort! 

Even if your programs are more prosaic, 
you may become glad that they all OPEN 
PRINTER$, a SET constant, rather than 
literal names like "SER1EHC" or 
"PARCF_24K", when you boot up on an- 
other system — or upgrade your printer, 
interface, translation or buffering software. 

SET can be used to share character 
fonts: 
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x=RESPR (2+9*256) 
LBYTES "FLP1_FONT",x 
SET_FONT x 

SET MY_FONT TO x 


SET_FONT is a Turbo Toolkit function, 
equivalentto Speedscreen’s _FOUNT,OR 
CHAR_USE IN Toolkit 2. The example 
creates a resident constant called 
MY_FONT, which holds the address of the 
font memory. Subsequent programs can 
share the same font by including 
SET_FONT MY_FONT, or something 
similar, when they prepare a display win- 
dow. 

To change the shared font, at any time 
later, just re-load the shared memory, with 
LBYTES FLP1_NEW_FONT,MY_ FONT. 
This changes the font in all current tasks 
that used MY_FONT to prepare their win- 
dows. 

The provisional User Guide given out by 
Sinclair Research at the 1984 QL launch 
suggested that ‘if an identifier starts with 
an ampersand ‘&’ then it is assumed to be 
a system identifier’, but this feature never 
reached production. 

| have added a similar feature to 
SuperBasic. In this case the name is 
marked with a # when you SET it; amper- 
sands don't pass the syntax check. SET # 
creates an interesting class of Resident 
function. 

SET # takes a name and associates it 
with a particular pointer in the System 
Variables. To read the pointer later, just 
refer to the name. Rather than SET 
SV_BASIC TO 16 and PRINT 
PEEK_L(SYS_VARS+ SV_BASIC), just 
SET #BASIC TO 16 and PRINT BASIC. 

The function finds the value of SV.BASIC, 
the system's pointer to the SuperBASIC 
task. Similarly, SET # TASKS TO 16 makes 
TASKS point at the start of the area used 
by other tasks. Thereafter, PRINT TASKS- 
BASIC gives the size of the memory area 
allocated to Basic. 

There are dozens of suitable pointers in 
the Qdos and Argos system variables. 
Table one lists some possibilities. 

Whether interpreted or compiled, 
SuperBasic is fastest and most efficient if 


‘| you give it the ‘expected’ type of data, so 


it does not have to coerce what you supply 
into the type expected. 

The type-checking in this version of SET 
is not strictly necessary, but it makes pro- 
grams that use SET values much more 
efficient than might otherwise be the case. 
Literal constant values, of any type, are 
handled quickly by SuperBasic, and | do 
not want people to abandon the use of 
mnemonic functions for reasons of speed. 
Even fast programs should be readable 
and configurable. 

Access to SET values involves an extra 
name in the program, but this is handled 
quickly because SuperBasic stores the 
Name Table index of the function, with no 
need to search to find its code address. 
The code inside the functions has been 
pared to the minimum; a ‘short cut’ in the 
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code removes the need for redundant 
checks if the command is called from a 
compiled task. The rom spends more time 
checking for space than it does finding the 
value, whether SET or LET. 

SET could be implemented to store all 
values as strings — perhaps ignoring the 
last character of the name — and programs 
would still work, but many slow and unnec- 
essary coercions would be required. This 
would be appropriate for slow interpreted 
systems like MSDOS environment vari- 
ables, but it would slow SuperBasic need- 
lessly. Saving time and space at the ex- 
pense of a little code, SET associates 
string, integer and floating-point values 
with corresponding ‘types’ of unset name, 
distinguished by their last character. 

TRUE and FALSE are best defined as 
floating-point constants, because IF ex- 
pects a floating-point value. If 11IE600 THEN 
CLS clears the screen — it does not report 
an over-flow error. CH_XSIZE% and 
BV_LINUM% are Window and Basic vari- 
able offsets, for use with older DIY func- 
tions like CHBASE, CHAN_W% and 
BPEEK_W%. 


More accurate 


Pliby2, Ln2 and ‘e’ do notcontribute much 
to readability, but are evaluated faster than 
their computed equivalents; this helps most 
if they appear in loops, when the computer 
might otherwise have to work out the ex- 
pression time after time. Computed values 
are often more accurate than literal ones, 
because SuperBasic works to an internal 
precision of nine digits, but does not dis- 
play the last two. To see this, enter 


PRINT P1, P1-3, P1-3.1 


The example values of SCREEN_RAM 
andSYS_VARS suit Sinclair QL Roms, but 
may vary on other systems. KEY_QUEUE 
returns the address of the current key 
queue, or zero, and changes when you 
switch the active cursor. PEEK or POKE 
SCREEN_STATUS tocheck for CTRL-F5, 
pause or re-start screen output. 

PEEK_L(TASK_INDEX) reads the ad- 
dress of the current tasks from the sys- 
tem’s task table. Similar SET # examples 
find other tables. If you have trouble re- 
membering the numbers used to indicate 
parts of the screen to PAN, SCROLL and 
CLS, why not SET them? 

Tyros may be slow to see the point of 
resident constants. They have learnt the 
literal value of all the flags, trap keys, magic 
numbers, Ascii and Qdos codes in their 
systems. But after a while you ‘know’ sev- 
eral sets, and sometimes get them con- 
fused. Either you invest effort in learning 
the literal values, and regularly update your 
knowledge, or you start giving names to 
the things: names which suit your perspec- 
tive, and the way you want to think about 
systems in future. 

Grizzled hackers may be glad to stand- 
ardise on ENTERS, rather than CHR$(10) 


or CHR$(13), or both, in either order. SET 
your own standards, and stick to them. 

Once upto a time we had to assign 
constants at the start of every program 
that used them — though we could merge 
them from a file. | ended up with lists like 
GREEN%=4 : WHITE%=7 at the top of 
many listings, or raw values later. 

SET lets you teach new names to the QL 
or Thor, without adding to your programs. 
The names reside in the machine, like 
other Toolkit functions, so they survive 
CLEAR, NEW, LOAD and LRUN; tasks 
can find them, too. 

Once a name has been SET you cannot 
use it as a program variable, DEF or loop 
name. This is a general rule which stems 
from the design of the Name List and the 
scanner that encodes each line. Each 
SuperBasic name has a distinct type; you 
cannot have an array, variable and proce- 
dure all with the same name, as you canin 
SAM Basic. 

You must avoid SETting names that 
your system already uses. SET OFF TOO 
allows FLASH OFF : UNDER OFF and 
suchlike, but SET ON TO 1 gives BAD 
LINE, because ON is a preset QL keyword 
and already has defined meanings. 

Sadly, accented letters cannot be in- 
cluded in SET names, as Jan Jones did 
not allow them to appear in SuperBasic 
identifiers. | have often thought that this is 
a pity. I'd love to use graphic characters in 
names, writing DEF PROC (right-facing 
PacMan) or DEF FN (Clockface). 

SET means that individual programs 
might become incomplete without their 
constants, but the same is true of all Resi- 
dent Toolkit functions. This can easily be 
fixed by adding SET statements or substi- 
tuting LETs in a lone program. Dilwyn 
Jones’ Basic Reporter utility can help a lot, 
quickly naming all the unset identifiers in 
any program. My keyword code may be 
distributed freely in non-Toolkit-related 
packages that need it. 

The ‘user heap’ routines buried inside 
SET show how Qdos can organise an 
arbitrary collection of memory areas on 
extra lumps of memory at any time. 

Thie assembler code appearing next 
month expands and creates records in- 
side the user heap. The user heapis setup 
inside one or more linked blocks of memory 
taken from the Common heap, or pool of 
free memory near the bottom of the QL 
memory map. 

It might have been simpler to allocate 
each SET value its own space in the 
Common heap, but that would probably 
not work well. Among other ‘objects’ the 
heap already contains drive and channel 
definitions, FILL buffers (a temporary 
property of channels), ALCHP space and 
ram disks. 

As SET functions proliferate | do not 
want the rest of the system to slow down, 
or memory to become split into small 
chunks. Such problems would be much 
more likely if each SET command created 
orreleased a distinct entry onthe Common 
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Heap. 

User Heaps are a good way to keep lots 
of bits together, especially when you con- 
sider the alternatives: continuous moves to 
take up slack space, changing pointers 
and copying as extra space is allocated, or 
stacks of pointers to scattered gaps. 

A user heap is a linked list of variable- 
length records. It Keeps all but one pointer 
inside the heap itself, so it needs no exter- 
nal tables. It uses 32 bit pointers and 32 bit 
sizes, allowing lumps several thousand 
times bigger than the maximum QL ram. 
This is perhaps over-generous but prefer- 
able to 16 bit limits, which restrict lumps to 
32K. 

There’s no point releasing a space that is 
not big enough to hold its own details, two 
long words, so the allocation unit is eight 
bytes. Ask for anything from one to eight, 
you get the full eight. Ask for nine and you 
get 16. 

This rounding is slightly wasteful, buthas 
the advantage over a heap of bytes that 
you can be sure of a word boundary at the 
start of each lump. 68000 code and data 
words are expected to be stored that way. 

The Common Heap records the task that 
owns each lump, making 16 bytes of 
header. Thus the minimum Common heap 
allocation is 24 bytes. 


Overhead value 


All you need to start a new User heap is 
along word address pointing to the start — 
asentinel. Initially make it 0, indicating the 
end ofthe list. SET END_OF_LIST TOO, if 
you like; some programmers like to exploit 
the deliberate link between logical FALSE 
and the zero terminator. 

When the user heap is first needed, allo- 
cate some common heap space with 
MT.ALCHP, and release it into the user 
heap with MM.LNKFR. Pass the address 
of your sentinel and LNKFR will set up the 
user heap header, pointing the sentinel at 
its second long word. 

User Heaps use relative pointers to link 
areas of free space. The entire space is 
available to the routine calling MM.ALLOC, 
but you need to remember the size if you 
want to release a space to MM.LNKFR 
later. Qdos helps by storing the size of the 
space in the first long word; my routines 
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CLS: RESTORE : READ space: start=ALCHP( space) 
: HEX_LOAD start 


PRINT “Loading Hex...” 
INPUT “Save to file.,.“;f% 
SBYTES f$,.start,byte : STOP 


DEFine FuNction DECIMAL(x) 


RETurn CODE(h#{x) )-48-7*(h$(x)>"9") 


END DEFine DECIMAL 


DEFine PROCedure HEX_LOAD( start) 
byte = 0 : checksum = 0 
REPeat load hex_digits 
READ h¢ 
IF he="#" : 
IF LEN(h8} MOD 2 
PRINT"Odd number of hex di 
STOP : 
END IF 


EXIT load _hex_digits 


leave it there. This may seem a waste of 
four bytes per used entry, but it makes 
deallocation and debugging much easier. 

The second long word is the ‘relative 
pointer’. This holds the offset to an address 
in bytes, which may be positive or nega- 
tive, rather than the address itself. This is 
convenient if all or part of the list is liable to 
move, as often happens inside SuperBasic. 
To find the target address of a relative 
pointer, add the address of the pointer to 
the long word value at that address. Thus 
the length of the first free entry in the heap 
is at: 


PEEK_L(SENTINEL)+SENTINEL-4 


Assuming you SET SENTINEL TO x+12 
after loading the SET code to address X. 
The subsequent long word contains the 
offset of the next pointer — with the space 
free in the previous long word — or 0 at the 
end. 

To grab some space, call MM.ALLOC, 
which rounds up the size in D1 and tries to 
find the space, searching all the free bits 
and returning ERR.OK or ERR.OM; do not 
rely on the Z flag corresponding to DO on 
return. 

User Heaps are an important concept in 
Qdos, but they are not well documented. 
Pennell’s Qdos Companion hardly men- 
tions them at all. As far as | know this is the 
first worked example of their use. My main 
references were section 8.4.2 of Adrian 
Dickens’ QL Advanced User Guide, largely 
written by Tony Tebby, and Fundamental 
Algorithms by Donald Knuth, section 2.5. 

All SuperBasic variable values are held 
in a User Heap, so scalar integers and 
decimals both take up 8 bytes of memory, 
the minimum. Qliberator employs User 
Heaps extensively, but Turbo and Super- 
charge tasks do not use them at all, be- 
cause they are compiled to work reliably 
within the bounds of the task dataspace; 
buffers are ‘phased’ in and out as pro- 
grams run, keeping two dynamic areas at 
either side of a single pool of free space. 

User Heaps have one failing, which is 
more of a problem for Basic than it is for 
SET. They tend to grow as space is allo- 
cated and released. This matters little when 
lumps are small —Knuth’s Art of Computer 
Programming suggests that physical 


END IF 


memory fragmentation is usually manage- 
able until the size of individual allocations 
approaches ten per cent of the available 
space. This rule of thumb explains why 
SuperBasic grows alarmingly when you 
manipulate big slices or arrays. Any busy 
heap needs a margin of slack space, or it 
clogs. 

Qdos tasks need large continuous blocks 
of memory in which to run. As the common 
heap grows from low QL addresses after 
the system variables, towards the tasks 
and RESPR code at the top, it limits the 
space available for task code and data. 
Volume H of DIY Toolkit explores the Com- 
mon Heap. 

Volume Bincludes ashort program called 
FORGET which gets rid of resident proce- 
dures or functions. This is easy on current 
Thor systems, due to a bug. Just DEF a 
dummy function in Thor Basic, with the 
same name as the unwanted extension; 
both will vanish as soon as you type NEW | 
or load a different program. QL users can 
get the same effect by changing the type 
Word in the Name Table from 2304 (Resi- 
dent Function) to 1, 2 or 3, depending on 
the data-type. 


Logical link 


Such tricks excise the name from the 
Name Table, but they do not de-allocate 
the memory used to store the code. This 
overheadis tiny in the case of SET routines 
—acouple of values plus a JSR instruction, 
for each constant. 

The new DIY Volume U includes a User 
Heap Explorer that can locate all the parts 
of auser heap, showing size, address and 
the smaller allocations inside. It also iden- 
tifies intermediate heap blocks that split 
the user heap. 

Itis important to FORGET all the resident 
constantnames before you deallocate SET 
space, or SuperBasic may try to call code 
in memory that has been re-located to 
some quite different purpose. POKE_L 
SENTINEL,O resets the User Heap. 

You can set the minimum size of each 
Common Heap lump with POKE_W SEN- 
TINEL-2,SIZE%. Values from 16 to 32760 
bytes are recommended — the default is 
100B bytes (1K when the common heap 
header is added}, which gives room for 60 


1 TO LEN(h$) STEP 2 

= DECIMAL(b) : 

IF hb<O OR hb>15 OR 1b<O OR 1b>1i5 
PRINT"Tllegal bex digit in: 


lb = DECIMAL(b+1) 


“jhe : STOP 


POKE start+byte, 16*hb+1b— 
checksum = checksum + 16*hb + lb 
byte = byte + 1 


END FOR b 
READ check 


END REPeat, load_hex_digits 


IF check <> checksum 


PRINT"Checksum incorrect, Recheck data. “ 


END IF 


PRINT"Checksum correct, data entered at: 
END DEFine REX_LOAD 


dite in: "sh . DATA 450 


: STOP 


“,atart 


REMark Space requirements for the machine code 
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REMark Machine code data 


DAA “43FA401B234780110" 
DATA “7202616A205F3390" 
DATA ~615C205F36107000" 
DATA “670C323C08205341”" 
DATA "E8002382E8027B02" 
DATA “3398E6002390E802" 
DATA “7203D25008810000" 
DATA “3598E800548A51CC" 
DATA “4A2E00546B063278" 
DATA “83C42D4900587000" 
DATA “6620740072007002" 
DATA “6710080500076702" 
DATA “000670F14E753E33" 
DATA “DEAEOO18508B0205" 
DATA “4884D84491C890C4" 
DATA “66D24E407210BA3C" 
DATA “670A720C60065C81" 
DATA "FEFC347800D84E92" 
DATA "“2204B28862027200" 
DATA “4A80667A74109282" 
DATA °“4E92220460C870F1" 
DATA "“66F445FAFECA6028”" 
DATA "671 A45FAFEE66014" 
DATA "“65D862E445FAFEE6” 
DATA “22182988780430FC" 
DATA "78005305660E45E8" 
DATA “928220C130F1E800" 
DATA "D8FF4E750001FEER4" 
DATA "OOOO", '*’, 41255 


, “4ED203F000000000" 
» E80078034E757206" 
, °4E41243030002202”" 
, "D4826AFAE28A3381" 
, "4E7572066130205F" 
,  78024E75205F2050" 
» "6114E24C53442449" 
, 'FFF878014E752801" 
, "O11A4E91226E0058" 
, “4E7549EB0010BBCC"™ 
, "4E4128481A33E801" 
» "7A001233E8006700" 
. "EBO2Z6FF648C7E78SF” 
, "0003180566027803" 
, '"41E6011830504E90”" 
» "0001670ABA3C0002" 
. "D271E800280141FA” 
» "4480674C307AFEEC" 
, "D268740070184E41" 
, '43FPAFED2347800DA" 
, "606408310000K801" 
, '45FAFEB6BA3COO003 " 
; “226EO005BBA3COO01" 
», '04440009E24C5D44" 
, '4EB920CA39BCO0900" 
» "000A20CA5 4887410" 
, "548951CCFFFB8027C" 
, '0353455400000000" 


new resident numeric constants or up to 40 
strings. If a string is too big to fit the default 
lump, SET calls for 100B bytes plus the 
space required. 

It's only worth increasing the value, by 


patching the world at offset 10 in the code, 
if you intend to SET scores of names or 
long strings. It may be better to allocate a 
few K atthe start, rather than risk fragmen- 
tation a long time later when the original 


buffer overflows. 

SET creates resident entries in the 
SuperBasic Name Table, the source of 
name data for all subsequent Basic tasks. 
SET constants offer an efficient way of 
communicating a mix of data items from 
Basic to other tasks, but SET would be 
even more useful if communication could 
go both ways. 

In May's QL World, the assembly code 
for SET will appear, and | shall develop this 
routine, making it possible for tasks to set 
changed values to existing SET functions. 
Thus any number of SuperBasic tasks can 
share values of any type, efficiently and 
dynamically. The extra code involves more 
User Heaping, and further useful applica- 
tions. 

The new DIY Toolkit Volume U contains 
the assembler and binary code for SET, 
plus scores of useful constants and vec- 
tors, the User Heap Explorer and associ- 
ated routines. 

To obtain DIY files, or a catalogue, ring 
Richard Alexander on (0559) 384574, or 
write to DIY Toolkit, Cwm Gwen Hall, 
Pencader, Dyfed, Cymru SA39 9HA 


DIY Toolkit illustrates Qdos program- 
ming from concepts to testing , with short, 
interesting examples that fill the gaps in 
existing QL Toolkits. Suggestions for fu- 
ture keywords or topics are welcome at the 
QL World editorial address. 


Liberate your QL! 


Q Liberator 3.35 £ 50 


The only compiler truly compatible with SuperBASIC now updated 
to support Minerva features such as dual screen mode, WHEN 
ERRor and WHEN variable, Multiple BASICs and_ Integer 
tokenisation. Works well with QJump pointer interface and all 
known toolkits. Upgrades from earlier QLIB (not budget) £15 


Q Liberator Budget Version £ 25 


The ideal SuperBASIC compiler for those with 128k systems. 
Upgrade later to the full spec version for only £30. 


QLOAD & QREF £15 


The one utility every QL owner should have! Loads and saves 
huge SuperBASIC programs in seconds flat. Latest version 100% 
Minerva compatible. Upgrades £5. 


Resident Program Manager £ 15 


A comprehensive utility for putting any QL software into EPROM. 


Send stamped addressed envelope for full details of our products. 


All software supplied on floppy or microdrive. 


Liberation Software 


43 Clifton Road, Kingston upon Thames, Surrey, KT2 6PJ 
081 546 7795 
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The Advanced Wordprocessor for the Sinclair QL 
text®’ version 3.00 and text’by dg €t , offer today's state-of- 


the-art user-friendly environment for document production. Extremely 
fast in operation with documents of any size and capable of mixing and 
displaying different type styles and sizes both on the screen and on paper. 
Support multiple columns, multiple rulers, and multi-line headers and 
footers. With integrated spelling-checker in three languages and editable 
dictionaries. Budget version cannot be used with 24-pin, laser and 
deskjet printer drivers. Both versions come with 34 sophisticated drivers 
for dot-matrix and daisywheel printers. You can add the extra drivers for 
state-of-the-art output not available from any other QL program. 


fountext®® ans founted®?, graphic printer-driver and editor 
for text87 provide high quality graphic founts without the limitations in 
text editing and document size imposed by QL desktop-publishing 
programs. More than 40 quality founts of up to 72 pixels in height are 
supplied and new founts can be designed or captured from saved screen 
images. For Epson and compatible 9-pin and 24-pin printers. 


a text-mode printer drivers for selected Epson LQ, NEC P, Star LC 
and XB and Panasonic KXP 24-pin printers offer multiple typefaces, 
proportional spacing, micro-justification, double height, shadow and 
outline modes (depending on the printer model). 


text87: £60 @ text87budget: £45 @ fountext88 + founted89: £40 
2488: £15 @ typeset90 deskjet: £20 @ laserjet: £40 @ GQ5000: £40 
Send for our new comprehensive leaflet 
Software available in English, French, German and Italian. Prices are 
inclusive of airmail. Payable by cheque, Postal Order or Eurocheque. 
Please specify language and disk system (all 31/2” and 51/4” formats can 
be supplied). text87 requires at least 256K memory expansion. 


Software87, 33 Savernake Road, London NW3 2JU 
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eurgen Falkenberg's new 
keyboard interface was 
reviewed in pre-produc- 
tion form in the Febru- 
ary edition of QL World. Since 
the review went to the pub- 
lishers, further information 
about this impressive product 
has been released. 
QL-Keyboard-90 is a card of 
microchips which plugs into 
your QL either directly onto 
the motherboard or through 
the rom port. Attached to the 
card is a short lead ending ina 
DIN socket which is compat- 
ible with the DIN plugs placed 
on the end of PC keyboard 
leads. By purchasing 
Falkenberg's keyboard utility 
hardware, you are then free to 
purchase your own choice of 
pe keyboard (available from 
around £40), or perhaps to 
borrow one from a pe in your 
possession. PC keyboards are 
generally of much better qual- 
ity than those available for the 
QL and suit both the native OL 
software environment and the 
MS-DOS emulators available 
from Digital Precision. 


Finer 


February's review concen- 
trated on the fitting of the card 
inside the QL and the practi- 
calities of the straightforward 
use of an add-on keyboard. 
Because full documentation 
was not available at the time I 
was unaware of some of the 
finer points of Falkenberg's 
programming forthe keyboard 
interface. 

The essence of matching a 
new keyboard to an old com- 
puter is called 'key-mapping’ - 
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the need to make best use of 
the new keyboard layout to 
provide the facilities associated 
with the old keyboard. The 
traditional QL has a 65-key 
layout with five function keys 
and no separate numeric 
keypad. Dedicated delete and 
‘break’ keys are also missing, 
asisahardware-driven ‘escape’ 
key. 

PC keyboards come in two 
main flavours: the 84-key AT 
layout which has its function 
keys banked vertically to the 
left of the qwerty keys and the 
new and infinitely more popu- 
lar 102-key PS/2 layout which 
places twelve function keys in 
a row along the top of the 
keyboard. Far from the addi- 
tional keys making life easier 
for the programmer mapping 
them to the QL's smaller key- 
board, the extra keys add 
problems of their own. For ex- 
ample, what is to be done with 
the PC's ‘Print Screen’ key, 
which performs a character 
dump of the screen to the 
printer? The difficulties are 
exacerbated not only by having 
to consider the 25 cursor-re- 
lated functions listed in the 
character set topic of the Liser 
Guide's Concepts section, but 
by having to take heed of the 
sometimes different cursor fa- 
cilities commonly used in 
various QL software products. 

Falkenberg has tried to pro- 
vide a logical function for each 
of the extra keys on the PC 
keyboard, although ‘Print 
Screen’ sadly does not produce 
a pixel-perfect screen dump to 
the printer. Instead it performs 
the arguably more useful job of 
switching between active Qdos 


HARDWARE 
UPDATE: 
QL - Keyboard - 90 


3 Mike Lloyd follows up his Februatry 1991 report. 


tasks in exactly the manner of 
pressing CTRL-C. The CTRL- 
F5 key combination which 
pauses a scrolling screen is 
supplemented on the pc key- 
board by the Scroll Lock key. 
However, the closely-related 
Pause key performs nota pause 
but a break — it is exactly the 
equivalent of pressing CTRL- 
SPACE on the normal QL key- 


board. 


Knowledge 


Another bright spotis the im- 
plementation of the famous 
Ctrl-Alt-Del key combination. 
On the QL this combination 
does exactly what it does on a 
pe: it resets the computer. 
Falkenberg's knowledge of the 


full range of QL software is 
revealed by the use to which he: 
puts the PC's Insert key: it forces 
the re-display of the last Su- 
perBasic command entered, 
provided that the QL has Super 
Toolkit 2 or Tony Tebby's 
Hotkey 2 environment loaded. 

In line with most DOS pack- 
ages, the pc keyboard's Home 
and End keys move the cursor 
to the start and end of the cur- 
rent line respectively. This ex- 
actly emulates the Alt-Left and 
Alt-Right functions planned for | 
QL but which were not imple- 
mented in Qdos or in Quill. 
Minerva owners and users of 
The Editor are able to use Alt- 
Left and Alt-Right in this way, 
and so for them the Home and 
End functions are of value. 

The other keyboard functions 
are listed in Figure one. The 
documentation for the inter- 
face reveals more evidence of 
attention to detail. For example, 
the auto-repeat timing can still 
be set using POKEs to the ap- 
propriate Qdos system ad- 
dresses. The scrap of ram 
present on the Intel cpu chip 
has partly been used to add a 
lengthy 55-character type- 
ahead buffer tosupplement the 
seven-key buffer on the QL it- 
self. 

The UK distributor for the 
Falkenberg keyboard interface 
reports promising sales since 
its release. For those who 
missed the February review, 
information can be obtained 
from TK Computerware, 
North Stanford, Ashford, 
Kent on 0303-81-2801. 


QL-KEYBOARD-90 INTERFACE FROM JEURGEN FALKENBERG 


PC KEYS 


Ft to FS 


FG to F10 


Fil to F12 


Back 


Delete 


FUNCT ION 


di Equr- 
VALENT 
Fil to FS 


SHIFT-F1 to 
SHIFT-F& 


CTRL-F1 and 


CTRL-F2 


CTRL=Ri ght 


Ingert 


Home 


End 


Page Down 


Page Up 


ALT-Up 


NumLock 


Scrolt Lock 


PrtSer 


SysReq 


Greak 


Pause 


- N/A - 
CTRL-FS 
CTRL-C 
CTRL-C 


CTRL~Left 


ALT-Enter 


ALT-Left 


ALT-Right 


ALT-Down 


CTRL-Space 


CTRL-Space 


Halts SuperBasic, abandons command 


Software-driven function keys 


Software-driven function keys 


Delete character ta left of cursor 
Delete character under cursor 


Reprint ljast command 
(TK2 and Hotkey 2, system only) 


Move cursor,to start of jJine 
(Editor, Minerva, ete} 


Move cursor to and of line 
(Editor, Minerva, ete) 


In Editor: scroll beneath cursor 


in Editor: scroll beneath cursor 
Toggles between numbers & cursor keys 


Suspends screen scrolling 


Moves to next active taak 


Moves to next active task 


Halts SuperBasic, abandons command 
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WeSC 


Twin peeks for CGH 


Two new publications have 
arrived from CGH Services. 
QL Technical Review issue 5 
is now out. Features include 
retrospective reviews of Turbo 
and Turbo Toolkit by Rich 
Mellor (which Simon Good- 
win has already reported to us 


| to be mistaken in some re- 


spects, but not unhelpful), 
Flashback, by Richard Alexan- 
der, and The Painter and Clip 


| Art from Progs Van Auwera, 


by Keith Reader. 

Rich also contributes a set of 
potted assessments of Dilwyn 
Jones’ list, and Stephen Bed- 
ford writes part 2 of a guide to 
Super Toolkit 2, 

The ‘Newsette’ page covers 
stop-press items including a 
summary of contents for OL 
World December 1990, and 
there is an errata sheet for is- 
sue 5 and updates for the 
previous issue. 

We quote in full one item of 
general interest: 

“Dennis Briggs tells me that, 
contrary to certain advice 
printed earlier in QLTR, it is 
not possible to erase mdvs with 
a magnet or with an ordinary 
bulk tape eraser. To erase a 
tape it must be subjected to a 
strong high frequency field. 
(Info on this from Ablex and 


The Essex group of Quanta are 
holding a computer workshop 
in Loughton on Saturday 18 
May 1991, 

Organised by Bob Gingell, 
the Workshop hopes to attract 
a number of traders, although 
no names are available yet. 
There will also be software 
demonstrations and Library 
facilities. 

The meeting venue will be 
the Debden Community Asso- 
ciation, Loughton Hall, Rectory 
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Maxell). I usually find that 
putting animportant fileonan 
mdvy is quite enough for the 
mdvy to lose whatever is on 
there!”. 

This paragraph contains a 
number of important truths, 
although Dennis and Richard 
are talking about complete 
erasure for re-use as any source 
of electro/magnetic activity 
can potentially corrupt and 
degrade the contents of a disk 
or mdv. 

QLTRS has 36 pages A4, and 
costs £1.50. 


Alsonew from CGH isa one- 
off publication, The QL 
Survivor's Source Book. This is 
an A4 stapled one-side-of-the- 
paper-only booklet with a 
coloured card cover, carrying 
an international listing of all 
the software and hardware 
suppliers known to have been 
supplying QL materials in re- 
cent historical times, other than 
those which are definitely 
known to have ceased trading. 
All the QL user groups, clubs 
and periodical publications are 
also listed. A further useful 
listing would have been non- 
periodical publications 
(manuals, books etc), still 


Loughton 


Lane, Loughton, Essex, from 
10am. The group has booked 
four rooms, with options on 
others, and will have a number 
of machines up and running. 
The site has parking, refresh- 
ments and the use of a licensed 
bar. 

For more information, write 
to Bob Gingell, 22 Paley Gar- 
dens, Loughton, Essex LI10 
2AN, or phone 081 508 8370 at 
social hours. 


available, and their sources, 
but this is perhaps beyond the 
scope of a guide which is basi- 
cally a source of addresses. 

Each company is listed in 
alphabetical order, with full 
address, phone number, and a 
brief list of its products. No 
further advice is given apart 
from the occasional health 
warning, but space is left - 
typically 1 by 3 inches — for 
users to add their own notes. 

The Survivor's Guide costs 
£2 for a stout number of pages 
containing every name you 
have ever heard of and many 
that you probably haver’t. 
CGH are doing a final update 
as we write, but it should be 
ready for sale as you read. 

Both publications are avail- 
able from CGH Services, Cwn 
Gwen Hall, Pencader, Dyfed, 
Cymru SA39 9HA. Tel. 0559 
384574. Prices as quoted, plus 
10% post and packing for 
postal orders. 

Richard Alexander of CGH 
would also like to hear from 
anyone who has a copy of 
Oracle Fortunata by Brian 
Richardson. CGH now have 
permission to re-publish this 
program, but are unable to ob- 
tain a copy. 


ENE! 


STD Index 


Sector Software have now 
completed the update of STD 
Index for the QL. This is a 
‘much uprated’ version of the 
program that has been on sale 
for the last two years, Counties 
have been added to ‘5,600 of 
the 6,000+’ entries. The pro- 
gram costs £14 but is available 
for £5 as an upgrade for exist- 
ing owners of STD Index 
returning their original pro- 
gram. The program requires 
an expanded QL and is avail- 
able on3.5and 5.25in disk only. 

An international version of 
STD Index — new with this re- 
lease - contains dialling codes 
world-wide and costs £9. All 
prices are subject to an addi- 
tional £2 for post and packing. 

Some QL programs will now 
be available on 5.25in disk as 
well as 3.5in., including 
Microdrive Exchange pro- 
grams and Sector’s own house 
software. A new version of 
Ferret for hard disks is now 
out, priced £12, or £5 plus the 
original cartridge for current 
owners wishing to upgrade. 

Keyboard membranes are 
available at time of writing ex- 
stock for £8 plus £2 post and 
packing. 

Orders and enquiries to 
Sector Software, 39 Wray 
Crescent, Ulnes Walton, 
Leyland, Lancs. PR53NH. Tel. 
0772 454328/432414. 


Fair Sailing 


The All Formats Fair on Satur- 
day 2 February attracted a 
healthy amount of activity 
around the reports a QL World 
reader. 

Freddy Vachha of Digital 
Precision had collected his 
usual crowd of admirers, EEC 
looked busy, Miracle had two 
people who appeared fully 
occupied, Syd Humphries of 
Quanta didn’tlookatall bored. 
The surprise was David Batty, 
spread across two stands. He 


said that his ‘disappearance’ 
over the’past couple of months 
had been due to his move back 
to Wray Crescent and inten- 
sive programming on his STD 
Codes package (whichis avail- 
able on the QL, PC and Amiga). 
It is interesting that these fre- 
quent fairs don’t seem to be 
overstating the excitement; 
there are as many people at- 
tending now as when they 
started. 
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Tom Ashcroft 
continues, with part 
two of his simple 
relational database. 


ast month’s article presented the 

core procedures for a flat file datab- 

ase and included simple methods 

f searching for information which 

just involve looking at each record in turn 
until a match is found with a search key. 
This is reasonably fast in a short file, even 
in Superbasic, but when a file contains 
hundreds or even thousands of records it 
takes too long to be a practicable method. 
However, if the records of a file are 
stored not in random order but in alpha- 
betical order, there is a much faster way of 
looking up arecord, called abinary search. 
In fact, the binary search is the method we 
ourselves use instinctively when looking 
up an item in an alphabetical list. The 
computer binary search is given a search 
key and compares it not with the first 
record in the file but with a record near the 
middle of the file. If this is, say, above the 
search key in the alphabet (closer to z) the 
wanted record mustlie in the half of the file 
below that position and so, with a single 
comparison, half of the file has been elimi- 
nated from the search. The program then 
| picks a record in the middle of the lower 
| half of the file and repeats the process, so 
| that with each comparison, the search is 
| narrowed to half of the remaining records. 


Quick search 


In a file of 1000 records, even if the 
wanted record were the last one exam- 
ined, a total of only 10 comparisons would 
be needed. In the same time, a simple 
paging search would have eliminated 10 
records, with only 990 more to go! 

There are two ways of using alphabeti- 
cal files in a database. The simplest is just 
to arrange the records of a file in alphabeti- 
cal order of one of the fields — an ordered 
file. The most familiar example is the Tel- 
ephone Directory, which has fields for 
initials, surname, address and phone 
number and is ordered on the surname 
field. The disadvantage is that a file can 
only be ordered on one field at a time and 
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DB@QL 


4000 REMark ##*X4 444K HKKKRKKAKKK TNDEX FILE 


4010 DEFine PROCedure in 


4030 IF NOT pac THEN 
4040 
4050 
PRINT" Terminating" :RETurn 
4060 


4070 END IF 
4080 a$(0,fldno,1)="I" 


ndx$(active,k,2)=k 

4100 DIM comp$(2,chars) 
4110 FOR item=2 TO nn 
4120 in _sort 

4130 END FOR item 

4140 
4150 
4160 
4170 
ndx$(active,k,2) 

4180 CLOSE#5 

4190 IF NOT pac THEN dbsave 
4195 lload 

4200 END DEFine in 

4205 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
ndx$({active,p,2) = 
4280 p=p-1 
4290 END REPeat compare 
4300 
4310 END DEFine in_sort 


DELETE "mdv1l_"“&indname$ 


DEFine PROCedure in_sort 
p=item 


REPeat compare 


Listing 13 


4020 DIM ndx$(1,nn,2,chars):active =1 


CLS:FOR j=1 TO fields:PRINT j,a$(0,3,3 TO) 
INPUT"Enter field number: 


fldno=fldno$: PRINT"Creating index file "; a$(0, 
fldno,3 TO LEN({a$(0,fldno)})&"_ind" 


4090 FOR k=1 TO nn:ndx$(active,k,1)=a$(k,fldno): 


indname$=a$(0,fldno,3 TO LEN(a$(0,fldno)))&"_ind" 


OPEN_NEW#5,"mdv1_"& indname$ 
FOR k=1 TO nn:PRINT#5,ndx$(active,k,1): 


REMark eee TN SORT 
comp$(1)=ndx${active,p,1):comp$({2)=ndx$(active,p,2) 
ndx$(active,0,1)=comp$(1):ndx$(active,0,2)=comp$(2) 

IF comp$(1)>=ndx$(active,p-1,1) THEN EXIT compare 


ndx$(active,p,1)=ndx$ (active,p-1,1): 
ndx${active,p-1,2) 


ndx$(active,p,1)=comp$(1):ndx$(active,p,2)=comp$(2) 


";fldno$:IF fldno$="" THEN 


PRINT#5, 


if a search is required on another field the 
records have to be resorted — a process 
which takes time. 

The second way of using alphabetical 
files is to make up an index file of the 
required field. The index file works in ex- 
actly the same way as the index of a book. 
It is a separate array with a record corre- 
sponding to each record in the main file. It 
has only two fields, one to hold the con- 
tents of the field to be searched, sorted into 
alphabetical order, and one to hold the 
corresponding number of the record in the 
main array. When the surname, say, has 
been located in the index file by means of 
a binary search the record number in the 
main file is read off and the record can be 
displayed. If necessary, a separate index 
can be held for each field in the database 
and there is no need to sort the database 
at all. Let's say we have a database to hold 
names and addresses of mail order cus- 


tomers. A printout of part of an index file for 
city might look like this: 


City Record no. in main file 
Cardiff 72 
Doncaster 40 
Manchester 3 
Sheffield 98 
Sheffield 186 
Sheffield 54 
Swindon 65 


Records with the same city are found 
grouped together. 


To create an index file, we would need to 
set up an array with the same number of 
records and field length as the main file 
and copy into it the ‘city’ field and record 
number of each record in the main file. The 
array now needs to be sorted on the ‘city’ 
field. There are various different algorithms 
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for sorting lists alphabetically, some of 
which are more efficient than others, but it 
is beyond the scope of this article to go into 
these in detail. For our purposes the inser- 
tion sort routine described on pages 96-98 
of the Sinclair QL User Guide is ideal as it 
allows new records to be added to the file 
at a later date. It will be divided into two 
procedures (listing thirteen) so that dif- 
ferent parts can be called from different 
sources. 

Implementing index files in DBQL re- 
quires several new procedures and 
substantial changes in some existing pro- 
cedures. The new procedures will be 
numbered from line 4000 onwards. In 
modifying old procedures, the original line 
numbers have been adhered to as far as 
possible, and new lines mostly inserted 
between them. In theory, an index might 
be needed for every field of a database 
and a multidimensional array will be used 
eventually to store these, but each index 
will be created separately and saved on 
microdrive. 


Index file 


The procedure IN is intended to create 
an index file for a database already in 
memory. It begins by dimensioning the 
index string array, ndx$, as 1 group of nn 
records, each consisting of two fields, chars 
characters in length. Active is a variable 
normally storing the number of the active 


index when several fields in a database 
are indexed, but only one index is active at 
present. Pac is a variable which will be 
explained later. Its value is usually 0 and 
so 4040 prints a list of field names and 
numbers and 4050 requests the number 
of the field to be indexed. Keying ENTER 
here will abort the whole procedure. 

Line 4080 flags the chosen fieldname by 
inserting a letter | in place of the leading 
blank character in a$(0). The flag will be 


| used in future when loading the index from 


microdrive. The chosen field and record 
number of each record in a$ are copied 


| into ndx$ by 4090. Comp$ in 4100 is an 


array used by the sort procedure IN_SORT, 
which is called by the loop in 4110 to 4130, 
for each record of ndx$ after the first. 
IN_ SORT itself is closely modelled on the 
program in the Sinclair QL Guide. After 
sorting, ndx$ is saved in a microdrive file 
with aname made up of the fieldname and 
the extension ‘_ind’, after deleting any 
previous file of the same name. Finally, 
4190 resaves the database with its added 
flag, using a modified save procedure. 

Before the new index file can be used it 
must be loaded into the definitive index 
array, in which it may make up only one 
dimension if the database has multiple 
index files. The procedure LLOAD has 
been modified by the addition of lines 2260 
— 2270 (listing fourteen). 

Line 2261 scans the field in a$(0) and 
increments the variable, indices, when- 
ever a flagged field is encountered, to find 
out how many index fields are held for the 
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2100 REMark *¥*****keeKeHeKHKEKKK OPEN 

2110 DEFine PROCedure op 

2120 CLS:INPUT\“Enter file name: ";f$ 

2130 lload 

2140 CLS:AT 10,7:PRINT"The file ‘"&f$&"" is open":PRINT\ TO 
13;nn;" records" 

2145 IF indices THEN PRINT\ TO 13;indices;" index file(s)" 
2150 END DEFine op 

2160 REMark #*#4#*#4#*4444444444% LLOAD 

2170 DEFine PROCedure Lload 

2180 OPEN_IN #6,"mdv1_"&f$ 

2190 INPUT#6,nn:INPUT#6, fields: INPUT#6,chars: INPUT#6,deleted 
2200 DIM a$(nnt+10,fields,chars) 

2210 FOR record=0 TO nn 

2220 FOR fld=0 TO fields 

2230 INPUT#6,a$(record,fld) 

2240 END FOR fld 

2250 END FOR record 

2254 CLOSE #6:oldfile=1 

2260 IF pac THEN RETurn 

2261 indices=0:FOR j=1 TO fields:IF a$(0,j,1)="I1" THEN 
indices=indicestl:a$(0,j,2)=indices 

2262 IF NOT indices THEN RETurn 

2263 DIM ndx${indices,nn+10,2,chars) 

2264 FOR j=1 TO fields 

2265 IF a$(0,j,1)="I" THEN 

2266 OPEN_IN #6, "“mdvi_"&a$(0,j,3 TO LEN(a$(0,j)))&"_ind” 
2267 FOR k=1 TO nn: INPUT#6, ndx$(a$(0,j3,2),k,1):INPUT#6, 
ndx$(a$(0,j,2),k,2) 

2268 CLOSE#6 

2269 END IF 

2270 END FOR j 

2271 END DEFine lload 


Listing 14 


4340 REMark *##4%44%4%* BINARY SEARCH 
4350 DEFine PROCedure lo 
4360 CLS:INPUT\"Pleasé enter item to look for: "j;s$ 
4370 FOR j=1 TO fields:IF a$(0,j,1)="I" THEN PRINT 
a$(0,j,2),a$(0,j,3 TO) 
4380 PRINT\"Current field for search is ";active\"Press ENTER 
to confirm"\"or enter another number: ";:INPUT q$:IF q$<>"" 
active=q$ 
FOR sfld= 1 TO fields:IF a$(0,sfld,1 TO 2)="I"&active 
EXIT sfld 
z=bin_s(nn,s$,ndx$) 
c=ndx$(active,z,2) 
IF a$(c,afld,1 TO LEN(s$))<>s$ THEN PRINT\"NOT FOUND ": 
RETurn 
4440 updown s$,ndx$,z 
4450 END DEFine lo 
4460 REMark ***+4444%*4% FN BIN SEARCH 
4470 DEFine FuNction bin_s(n,x$,y$) 
4480 LOCal s 
4490 power=INT(LN(n-1)/LN(2) } 
4500 s=2”power 
4510 FOR k=power-1 TO 0 STEP -1 


4520 s=s+(2°*k)*(x$>y$(active,s,1,1 TO LEN(x$)))-(2°k)* 
(x$<y$(active,a,1,1 TO LEN(x$))) 

4530 IF s>n THEN s=n 

4540 IF s<1 THEN s=1 

4550 END FOR k 

4560 RETurn 8 

4570 END DEFine bin_s 


Listing 15 


4580 REMark ***#***k%e%444***%* UPDOWN 
4590 DEFine PROCedure updown(x$,y$,s) 
4600 REPeat upward 

4610 s=s-1l 

4620 IF s=0 THEN EXIT upward 

4630 c=y$(active,s,2) 

4640 IF a$(c,sfld,1 TO LEN(x$))<>x$ THEN EXIT upward 
4650 END REPeat upward 

4660 REPeat downward 

4670 s=s+tl 

4680 c=y$(active,s,2) 


Listing 16 


37 


database. At the same time it inserts a 
second flag as the character following | in 
the field name. This holds the number of 
the index and will be used to set the value 
of the variable, active when the index file is 
used. Line 2262 aborts the procedure if 
there are no index files. Line 2263 sets up 
the index array, ndx$, with as many dimen- 
sions as there are index files and the loop 
in2264 to 2270 again scans the field names 
in a$(0) and when a leading | is found loads 
the index file with the appropriate name 
into the dimension of ndx$ indicated by the 
second character in a$(0,j). The index files 
are now ready for use in a binary search 
(listing fifteen). 

The search is carried out by a new LO 
(lookup). This first requests the item to 
search for, which is stored as s$. After 
displaying the list of indexed fields (4370), 
numbered according to the flag in a$(0,j,2), 
| the user is asked to indicate which index is 
to be active. The only other information the 
program now needs is the number of the 
field to be searched and line 4400 uses a 
loop to find which field in a$(0) starts with 
an | followed by a number equal to active. 
When a match is found the loop exits and 
the counter variable, sfld, is left holding the 
appropriate value. 


Logarithms 


The actual search is carried out by the 
defined function bin_s. This is called by 
4410 which passes the variables nn, s and 
ndx$ (see the Sinclair Guide pp 86 to 88). 
The function first uses logarithms to find 
the highest power of 2 which is less than 
nn. The search position, s, is set equal to 
the next lower power of 2, and the loop in 
4510 to 4550 is commenced. Line 4520 
uses logic functions (see Sinclair User 
Guide pp 54-56) to increase or decrease 
the value of s according to whether the field 
in the active dimension of ndx$ at position 
s is greater or less than af. If the field in 
ndx$ is equal to s$ neither of the logic 
statements is true and the value of s is 

| unchanged. 

Lines 4530 and 4540 prevent the value of 
s being moved beyond the limits of a$. The 
final value of s is returned as a value for z 
in 4410 and 4420 translates this into a 
value for c which 4430 uses to check the 
appropriate field in a$ against s$. If they do 
not match the procedure aborts with a 

| screen message “NOT FOUND”, other- 
wise the search moves on to the next stage 
— UPDOWN, called by 4440 (listing six- 
teen). 

Amatch in 4410 means that the program 
has found one matching record in ndx$ but 
there may well be more. If so, these will be 
grouped in adjacent records in 
ndx$(active,nn,1), which was alphabeti- 
cally sorted. UPDOWN simply pages 
upward through ndx$ until it reaches a 
record which no longer matches. It then 
pages downwards through ndx§, record by 
record, printing the corresponding record 


4690 IF a$(c,sfld,1 TO LEN(x$))<>x$ THEN EXIT downward 
4700 b_s_ display 

4710 IF s=nn THEN EXIT downward 

4720 END REPeat downward 

4730 END DEFine updown 

4740 REMark ****#***k* BS DISPLAY 

4750 DEFine PROCedure b_s_display 

4760 PRINT"#"!c!!:FOR j=1 TO fields:PRINT a$(c,j)&" ";:END 
FOR j:PRINT 

4770 END DEFine b_s_display 


Listing 16 


1980 DEFine PROCedure ssave 

1981 IF NOT resave THEN RETurn 

1982 dbsave 

1984 IF indices* THEN indexsave 

1985 resave=0 

1986 END DEFine ssave 

1987 : 

1988 DEFine PROCedure dbsave 

1990 IF oldfile THEN COPY "mdvi_"&f£$ TO "mdv1l_"&f$&"_temp": 
DELETE "mdvl_"&f$ 

2000 OPEN _NEW #6,"mdvl_"a&f$ 

2010 PRINT#6, nn~-(deleted*{pac=1)): PRINT#6,fields:PRINT#6, 
chars: PRINT#6,deleted*(1-pac) 

2020 FOR record=0 TO nn 

2030 IF a$(record,0)="D" AND pac=l THEN NEXT record 

2040 FOR fld=0 TO fields 

2050 PRINT#6,a$(record,fld) 

2060 END FOR fld:END FOR record 

2070 CLOSE#6:DELETE "mdvl_"&f$&"_ temp" 

2071 END DEFine dbsave 

2072 ¢ 

2073 DEFine PROCedure indexsave 

2074 FOR j=1 TO fields 

2075 IF a$(0,j,1)="I"THEN 

2076 COPY "mdv1_"&a$(0,5j,3 TO LEN(a$(0,j)))&"_ind" TO 
"mdv1_"&a$(0,j,3 TO LEN(a$(0,j)))&"_ind temp” 
2077 DELETE "mdvl1_"&a$(0,j,3 TO LEN(a$(0,Jj) 
2083 OPEN_NEW#6, "mdv1_"&a$(0,3,3 TO LEN(a$ 
2084 FOR k=0 TO nn:PRINT#6, ndx$(a$(0,;j,2), 
ndx$(a$(0,j,2),k,2) 

2085 CLOSE#6 

2086 DELETE "mdvi_"&a$(0,j,3 TO LEN(a$(0,3j)))&"_ind_temp" 
2087 END IF . 

2088 END FOR j 

2090 END DEFine indexsave 


)&" ind" 
0,5)))&"_ind" 


) 
( 
k,1):PRINT#6, 


Listing 17 


4775 REMark **kkk*ke4444%4* UPDATE INDEX 
4780 DEFine PROCedure update_index 

4790 DIM comp$({2,chars) 

4800 FOR j=1 TO fields 

4810 IF a${0,j,1)="I" THEN 

4820 active=a$(0,j,2) 

4830 ndx$(active,nn,1)=a$(nn,j}: ndx${active,nn,2)=nn: 
item=nn 

4840 in_sort 

4850 END IF 

4860 END FOR j 

4870 END DEFine update_index 


Listing 18 


4880 REMark *##44eKERRAREKKKEKKEKAK PACK 

4890 DEFine PROCedure pa 

4900 pac=1 

4910 dbsave 

4920 lload 

4930 CLS:PRINT\"“Rebuilding the index files. Please wait." 
4940 FOR j=1 TO fields 

4950 IF a$(0,j,1)="I" THEN 

4960 fidno=j 

4970 PRINT\a$(0,j3,3 TO LEN(a$(0,j)))&" index" 
4980 in 

4990 END IF 

5000 END FOR j 

5010 pac=0 

5020 lload 


5030 END DEFine pa Listing 19 
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in a$ to screen, until it again reaches a 
record which no longer matches and then 
terminates. The result is that all matching 
records are printed to screen in alphabeti- 
calorder. AnewprocedureB_S DISPLAY 
is used to print the fields of a$ in line across 
the screen, in order to make best use of the 
| screen space. 

An important point is that s$ is only com- 
pared with the field content up to the length 
of s$, so that, for example, entering Aas a 
search key would find all records whose 


1800 
1810 
1820 


DEFine PROCedure am 
CLS:CLS#0 
CLS#4:PRINT#4," 


ENTER leaves item 


unchanged " 


1830 


PRINT#4," To change an item, type new 


version" 


1835 
1840 
1850 
1860 


(a$(0,fld))); TO 11;": 


1870 


DIM hold$(fields,chars) 
resave=l:reenter=0 
FOR fld=it TO fields 
PRINT TO 9-(LEN(a$(0,fld))-3);a$(0,fld,3 TO LEN 
"&a$(c,fld) 
INPUT q$:IF q$="" THEN :hold$(fld)=a$¢$(c,fld)}:ELSE: 


hold$(f£1d)=q$: reenter=reenter+(a$(0,fld,1)="I"):END IF 


‘city’ field, say, began with A, whatever the 
rest of the field might be. Similarly, entering 
‘Ab’ would find ‘Aberdeen’ and ‘Abingdon’ 
but not ‘Arbroath’. 

The presence of index files requires 
| changes in the procedures for saving, en- 
tering, amending or deleting records. 
Saving is in listing seventeen. 

Procedure SSAVE now has two sec- 
tions: DBSAVE which saves the database 
| as before after making a temporary copy 
onmicrodrive, and INDEXSAVE which does 
the same for each index file in turn, taking 
each filename from the corresponding 
fieldname in a$(0). The function of the 
variable, pac, is explained below. 

When a new record is entered, the index 
files must be updated and two new lines 
have been added to the procedure EN. 


1251 a$(nn,0)="" 
1252 update_index 


Line 1251 places two blank characters in 
| field 0 of the new record and 1252 calls a 
new procedure UPDATE_INDEX. This 
checks each field of a$(0) in turn and, if a 
leading “I” is present, places an entry in the 
appropriate dimension of ndx$ and calls 
IN_SORT to move it to its correct alpha- 
betical position. This is repeated with each 
new entry. 

Deleting a record is a little more compli- 
cated. If it were done each time the file is 
saved, it would involve deleting an item 
from each index file and closing up the 
resulting gap each time which would be 
| tedious if several deletions were needed. It 
| is better to flag records for deletion as 
before but to save the actual deleting for a 
convenient time when a good number of 
records have been flagged. The index files 
can then be completely deleted and recre- 
ated afresh. These operations are carried 
out by a new procedure PA (pack) begin- 
ning at 4880 (listing nineteen). 

Dropping of flagged records at resave 
now only occurs if a second flag pac is set 
and so PA begins by resaving with pac set, 
to eliminate all the deleted records. The 
fields of a$(0) are then scanned and when 
a leading “I” is found the procedure IN is 
called to create a new index which is saved 
to microdrive. Finally, pacis setto 0 and the 
database is reloaded with its new index 
files. This method of deleting means that if 
the data base is not to be packed immedi- 
| ately, the value of deleted must be saved 
and reloaded with the file, and 2010 and 
2190 have been amended accordingly. If 
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1880 END FOR fld 

1881 IF reenter THEN 
1882 
1883 
Please wait.":ssave: lload 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1900 


update _index 
ELSE 


END IF 

IF reenter THEN c#=nn 
display:menu 

END DEFine am 


1020 
1025 
1030 
1040 
1050 
1055 
1060 
indices=0: 


DEFine PROCedure start 
MODE 4 

OPEN #3,serl1 

OPEN #4,con_480x30a10x0 
WINDOW 480,205,10,30 
WINDOW#0,480,20,10,236 


active=1 
#0,7:INK#4,4:CLS:CLS#0 


1080 menu 
1090 END DEFine start 


pac is set, 2010 automatically adjusts the 
value of nn and sets deleted to 0, using 
logic statements to make the changes: 


2010 PRINT#,nn=(deleted*(pac=1)): 
PRINT#6, fields: PRINT#6,chars: 
PRINT#6,deleted*(1-pac) 

2190 INPUT#6,nn: INPUT#6,fields: 
INPUT#6,chars: INPUT#6,deleted 


Amending a record is also more complex 
with index files in place (listing twenty). 

Changing a non-indexed field is no prob- 
lem but changing an indexed field would 
mean complex manipulations of the index 
file and it is easier to delete the original 
record and add the amended version to the 
end of the database as a new record. The 
original record and its index entries are still 
present, of course, until the file is packed, 
but it could be made invisible by making 
DISPLAY skip any record with the “D” flag 
set. 

In the changed procedure AM, a tempo- 
rary array, hold$, is dimensioned to store 
one record. As the fields are displayed one 
by one, pressing ENTER causes the original 
field to be copied into hold$, while any new 
amended field is sent directly to hold$. If 


resave=0:oldfile=0:nemo= 


1070 PAPER 0:PAPER #0,0:PAPER#4,0:INK 7:INK 


ag(c,0)="D":deleted=deletedt1:nn=nntl 
IF nn=DIMN(a$) THEN PRINT"Saving file to microdrive. 


FOR j=1 TO fields:a$(nn, j)=hold$(j) 


FOR j=1 TO fields:a$(c,j)=hold$(j) 
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1:chan=1:deleted=0:c=1:pac=0: 
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the changed field happens to be an in- 
dexed field, a flag, reenter, is set. If the end 
of the record is reached with reenter not 
set, the fields of hold$ are copied back into 
a$(c) as the amended version. 

If reenter has been set, hold$ is copied as 
anew entry at the end of the database and 
the index files are updated. The original 
version of the amended record remains 
unchanged, but flagged for deletion. Line 
1883 makes room for the new entry if a$ 
happens to be completely filled, in the 
same way as 1260. The original record will 
be deleted the next time the file is packed. 

Finally, the procedure START has been 
modified to initialise new variables and to 
increase screen space (listing twenty- 
one). The program now uses mode 4 and 
the window sizes have been changed to 
give 80 characters per line. Program in- 
structions are printed in channel #4 while 
channel #0 has been reduced to two lines 
only. The menu should be changed to 
include the new procedures INdex and 
LOokup. 

Next month the program will be further 
developed to provide a SELECT function 
and procedures for validation of input will 
be added. 


EE 


ne of the questions 
frequently asked 
about the Psion 
printer driver is 
whether it is possible to in- 
crease the number of 'trans- 
lates’ beyond 10, and so far the 
answer is always ‘no’! How- 
ever, many printer control 
codes can be sent directly from 
within the text using the sec- 
ond (or foreign) character set. 
Our QL is frequently called 
upon to produce special char- 
acters for Finnish, French, Ger- 
man and chemistry, and we 
find that there is no problem if 
the 10 translates are used in 
conjunction with this trick. 
(Russian did require some 
modification to Quill.) 

The QL, like most other com- 
puters, communicates with 
printers using the Ascii code, 
which consists of the 128 num- 
bers from 0 to 127 (as 7 bit 
binary numbers). The first 32 
numbers and the last one (127) 
are used as control codes, while 
the other 95 represent print- 
able characters. The QL uses 
more or less the same codes for 
its screen display, but there is 
no direct connection between 
the character as it appears on 
screen and on the printer. 
When, for example, you type 
‘PRINT#n, "A";’ the computer 
sends the number 65 to the 
appropriate channel (printer or 
screen according to "n"), not a 
description of a letter "A". The 
printer or screen firmware then 


Howard Clase explains how the Psion printer driver 
translates can be supplemented with codes sent from 
within the text, using the QL foreign character set. 


control codes are generated by 
the printer driver, which can 
be adapted to your printer's 
requirements using INSTALL 
_BAS. This gives you two ways 
of sending control codes: 

1. The hidden ‘embedded’ 
codes, which are visible on the 
screen only in their effect on 
the display. These are usually 
set up to produce the corre- 
sponding effect on the printer 
output, but this is not neces- 
sary: you could, for example, 
have the underline feature on 
the screen produce italics on 
the printer. 

2. The 'translate' options, 


SINGLE CHARACTERS* 


Character 


CTRL & 27 
CTRL & 15 
CTRL & 18 
CTRL & SHIFT & 9 08 
CTRL & 


TWO CHARACTER 


Characters 


Keying 


“ESCAPE” 


which enable any single code 
to be intercepted on its way to 
the printer and forwarded as a 
string of up to nine codes’ of 
your choice. This means that 
you can use a single screen 
character to represent another 
on the printer (eg £ for #) or as 
a ‘special’ character to send a 
complex set of instructions to 
the printer. Many word proc- 
essors on other machines use 
special codes to send all their 
control messages to the printer. 

However, there isa third way 
of sending control codes to the 
printer, which is not docu- 
mented in the manual, and that 


Effective 


code (mnemonic) 


CESC3 
CsI) 
(pee) 
CBS) 
07 <«BEL)} 


CODES 


Effective 
code 


is to use the foreign characters 
with codes higher than 127. 
This arises because the QL, like 
most other modern computers 
and printers, uses all eight bits 
of its bytes, rather than only 
the last seven as in the original 
Ascii code, giving 256 possible 
codes (0 to 255). However there 
is no standard use agreed for 
the 128 codes from 128 to 255. 
The QL uses the first 63 of them 
(128 to 191) for its international 
and miscellaneous characters 
onthe screen, and willsend the 
corresponding codes out 
through the serial or parallel 
ports, but these are not recog- 


Effect on 
printer 


Escape 
Select compressed 
Cancel compressed 

Backspace 
Sound beeper 


Effect on 


printer 


Select elite type 
Select pica type 
Select Italic mode 
Cancel Italic mode 
Disable {paper-out 
Enable <sensor 

Cancel super/subscript 
1/8 in line spacing 


looks up 65 in a table in its OM CHRS¢27);"M" 
memory to find out how to ap CHR$C279;"P™ 
display an "A". a4 CHR#$(27)5°4" 
Os CHR$(2739;°5" 

ag CHR#(27);"8" 

Two ways ag CHR€(27);"9" 

aT CHR$C27);"T" 


From Basic you can send a ao CHR$¢27);"0" 
character code to a channel in 
two ways (‘PRINT#n, "A";" or 
'PRINT#n,CHR$(65);"); but if 
you want tosend a control code 
from Basic you can normally 
only use the second form. 
‘PRINT#n,CHRS(7);'— will 
sound the beeper on a printer, 
but prints nothing on paper or 
screen. ‘ 

CHR§() is also available in 
Archive and Abacus, but not in 
Quill. The required printer 


THREE CHARACTER “ESCAPE”™ CODES 
Select 
Select 


Select 


asd 
asi 
a-1 
&-0 
a3n 
Qln 
agn 


CHRS(27);°S0~ 
CHR$(27)9;"S1" 
CHR$¢€27)93;"-1" 
CHR#(27)3"°-0" 
CHR$(27)9;"3"5n 
CHR#$(27)9;"1"3n 
CHR#C27);°Q"5gn 


superscript 
subscript 
underline 
Cancel underline 
nf/216 in line spacing 
set L margin n spaces 
set KR margin n spaces 


in these lines refers to the numerical code of a 
not the character itself. 


* the “n7 
character, 
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nised as the same characters by 
printers. 

Epson printers in their nor- 
mal state interpret the 32 Ascii 
codes from 128 to 160as though 
they were the 32 codes from 0 
to 31. (The most significant bit 
of the binary number is effec- 
tively ignored). This makes it 
possible to use the first 32 char- 
acters of the second character 
settosend printer control codes 
to the printer from the QL ei- 
ther from Basic or from within 
Quill, in the latter case without 
using up translates in the 
printer driver. 

Before I explain how to do 
this let's have a look at the 
printer control codes them- 
selves. In the early days of 
computing 32 codes was 
enough tocontrol the primitive 
teletype printer terminals, and 
many of the codes give a direct 
instruction, — 10 = new line, 8 
= backspace, etc. However, 
modern printers likemy Epson 
FX85 can accept nearly 100 in- 
structions. 


The key 


The key to this expansion is 
code 27 or ESCape, which sus- 
pends the ‘normal’ role of the 
following code or codes and 
gives them another meaning. 
For example, code 77 normally 
causes an "M" to be printed, 
but the sequence 27 77 (ESC 
"M") switches the printer toelite 
pitch. In this example the 
printer doesn't expectany more 
control information after the 
77 ("M") and treats the next 
character normally, but longer 
sequences are sometimes in- 
volved. 

Sometimes a third code is 
used as a flag or to provide 
other information, for exam- 
ple 27 87 49 (ESC "W1") selects 
expanded mode while 27 87 48 
(ESC "W0O") turns it off again, 
and 77 74 n (ESC "J";n) causes 
the paper toadvancen/216" of 
an inch. In the second example 
n stands for the number of 1/ 
216" of aninch to advance: itis 
not the character "n". If you use 
"n" the number 110 would be 
sent, moving the paper about 
'/. inch. 

In printer manuals, which in 
my experience are rarely a 
model of clarity, the following 
methods may be used to rep- 
resent codes. It is important to 
know which applies in each 
case: 
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1. The corresponding printed 
character in quotes, eg "A" for 
65, "8" for 56, etc. These are 
found in the Concepts section 
of the QL User Guide manual 
(pp 5-9 in the 12/84 edition). 

2. The number itself, usually 
in decimal, but sometimes in 
hexadecimal or octal. This is 
often expressed as CHR$(n), 
since this is the normal way to 
send it to the printer from Ba- 
sic. When a number is given it 
is important to make sure that 
it is the value of the number 
that is intended and not the 
character, which will be given 
in quotes: 8 = 8, but "8" = 56. 

3. The Ascii mnemonics for 
the 32 control codes, eg ESC, 
NUL, LF, CR. These pop up in 
the Psion program 
"INSTALL_BAS" for writing 
printer drivers. They are listed 
in order in the Information sec- 
tion of the QL manual (p.5 in 
the 12/84 edition), but you 
have to count to work out 
which corresponds to which 
code: NUL = 0, SOH = 1, etc. 

The code — character — Ascii 
mnemonic correspondences 
will probably also be listed 
somewhere in your printer 
manual. 

Since 'foreign' characters are 
not available in normal type 
and might present QL World’s 
printers with some problems, 
they are represented by their 
keying enclosed in angle 
brackets in the text, eg 
<CTRL&;> for hold down 
CTRLand press";". This causes 
a"u" with a circumflex accent 
(*) toappear on thescreen. (Do 
not type the <> characters. 

This is the most important 
oneinthe present context since 
its OL code is 155, and 155 mi- 
nus 128 is 27 or ESCape. If you 
PRINT this character to an 
Epson printer itignores the first 
bit, which is the same as sub- 
tracting 128 from the value, and 
has the same effect as sending 
an ESCape, so, for example, 
PRINTing "<CTRL&;>" fol- 
lowed by  "M" (or 
"<CTRL&;>M") selects elite 
pitch. 

This means that you can eas- 
ily send most of the control 
codes from within Quill as 
embedded codes. There are a 
couple of other foreign charac- 
ters thatare directly useful, and 
these are given in the table, but 
most of the useful control codes 
use ESC followed by normal 
characters, so there is not much 
strange keying to learn. The 
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table contains my selection of 
the most useful codes for my 
FX85. You may have to experi- 
ment with different printers or 
to produce other effects, but 
the examples cover most of the 
types of combinations that oc- 
cur. 

If you are using this method 
from within Basic you must 
enclose the characters in 
quotes, but from within Quill 
this is not required. (If you do 
the quotes will be printed, but 
the printer will still respond to 
the instructions). You can send 
multipleinstructions simply by 
stringing them together (with- 
out spaces). 


Drawback 


The main drawback of using 
the foreign characters as printer 
control codes in this way is that 
it upsets right justification, 
since they appear on thescreen, 
but not in the printed line. So I 
generally use them for com- 
mands that I can put in the 
blank lines between para- 
graphs, such as changing 
printer typeface, or to send the 
ignore paper-out sensor com- 
mand when printing single 
sheets. However, you canusea 
translate to define a single 
character asadouble spaceand 
use this to replace enough sin- 
gle spaces in the line to get the 
margins right again, or use left 
justification. 

The hidden 'typeface’ codes 
are best used for changes that 
you want within lines, and the 
‘translates’ best reserved for just 
that — one for one translations 
of characters, eg £ for #, or to 
get some of the foreign char- 
acters to come out on printer as 
on screen. The big advantage 
of the method is that you don't 
have to leave Quill and mess 
about with INSTALL_BAS to 
make use of it: the foreign 
character codes are available 
all the time. 

Another problem is that it is 
not possible to use the foreign 
characters in this way when 
the printer expects a numerical 
value, the number of characters 


to set a margin to for example. ° 


Unfortunately in this instance 
the printer reads all eight bits 
of the code, so "<CTRL&;>" 
would have its full value of 
155. It is not possible to send 
the numbers from 0 to 31 from 
within Quill without using 
translates, but beyond that just 
use the corresponding charac- 


ter, eg space for 32, ! for 33 etc. 

An example of the use of 
foreign character codes that I 
often use to save space is two- 
column printing from Quill. It 
puts two pages of compressed 
text ontoa single page of paper. 
First change the right margin 
of your _doc to 65 and you can 
increase the page size to 80 lines 
for 1lin paper or 85 for A4. 
Avoid headers, but footers are 
OK. 

Then type <CTRL&; 
>8<CTRL&;>0<CTRL&/> at 
the head of each odd page of 
your document. This will 
switch off the paper_out sen- 
sor, and select 1/8" in spacing 
and compressed print. Or you 
can set up a special printer 
driver with this as the pream- 
ble, and begin each even num- 
bered page with <CTRL&;>1>. 
(ESC "1" 62 — the last ">" con- 
tributes Ascii value of 62 here 
and unlike the others should 
actually be typed in). To avoid 
justification problems it is best 
to put the codes on a separate 
line, filling itwith tabs or spaces 
if you are in the middle of a 
paragraph and don't want the 
first line indented. 

Use a printer driver set for 
separate sheets and print the 
document two pages ata time. 
The first page will print down 
the left half of the sheet. Then 
wind the page back to the top 
and print page two down the 
right-hand side, and soon with 
3&4, 5&6 etc. (Lf your printer 
driver is set up for continuous 
forms you will have to repeat 
the <CTRL&;>8<CTRL&; 
>0<CTRL&/> at the head of 
every page followed by 
<CTRL&;>1> on the even ones 
and print one page at a time). 

Youcanchange the print style 
from within Abacus by insert- 
ing columns of the appropriate 
printer contro] code characters, 
eg if you precede a block with 
a column of <CTRL&/>s and 
follow it with a column of 
<CTRL&2>s (no quotes needed 
~— make each column one char- 
acter wide) the block will be | 
printed in compressed type 
while the cells outside the block 
will be normal size. (This will 
not change the margins.) 

I have not attempted to give 
an exhaustive list, since the 
details will vary with the model 
of printer, so get out your 
printer manual and experi- 
ment. Once you get the hang of 
it you can play your printer 
like a virtuoso! 
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glaring omission from the built 

in features of the Archive data- 

base program is a way of 

changing the structure of an 
existing data file, I can still remember 
searching long and hard for the way to 
correct that silly typing mistake in a field 
name. Only with great reluctance did I 
accept that Psion had made no provision 
for doing so. 

Typing mistakes may stare back accus- 
ingly, but you can grit your teeth and live 
with them, or if you have not entered the 
data yet, start again with a new file. But 
what about when you want to add an- 
other field? And removing redundant 
fields will save filespace. Database needs, 
like everything in this world, are in a 
constant state of flux. There must be a 
way of adapting your data file, tomeet the 
new circumstances. 

Recent suggestions in this magazine in- 
volve exporting the data, tinkering with 
the resulting file, and then re-importing it 
back to Archive format. But this is a cum- 
bersome, slow and messy process, 
particularly ifa large database is involved. 
The solution offered here may not be fast, 
but it is flexible and powerful. It works 
entirely from within Archive;’ gives all 
options on screen; and does the tricky bits 
by itself, making it simple to use. 

The underlying idea is simple enough. 
You create a new file with the corrected or 
modified structure, and copy the data 
across, And if the new file ends up with 
the same nameas the original, the illusion 
of having ‘modified’ it is complete. 

The first complication is the need to edit 
the existing structure, instead of starting 
again with the normal create command. 
To do this the field names of the file in 
question (we shall call it ‘oldfile’) are all 
stored as data records ina second file—a 
structure file. This has just two fields, to 
hold a name and number for each of 
oldfiles’s fields. This structure file can 
then be manipulated in any way required, 
just like any other Archive data file. When 
the changes to the field names have been 
made the file is used to create a new file, 
with the new structure. 

It is in the transferring of information 
from the old to the new file that there is 
greatest scope for complication and error. 
For example, if you wish to add an extra 
field, ‘firstname$’, between ‘title$’ and 
‘surname$’, a different transfer process 
will be needed than if you are changing a 
field name from ‘sirname?’ to ‘surname. 
In the first case existing data is matched 
from the old to the new by its name. Butin 
the second case date is transferred be- 
tween two fields with different names, so 
to match this data the position of the field 
| is used. Data from old-field(1) is trans- 
| ferred to new-field(1), regardless of its 
name. 

' Thisisa fundamental aspect of changing 
the structure of a file. If you change the 
names, the transfer is by order. If you 
change the order, the transfer is by name. 
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In the first of an occasional column, Robin 
Stevenson tacklets trouble-spots. This month: 
altering file structures. 
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proc CopyStrucf ile;Oldfile$,Strucfile$ 

local COUNT : Tem NEW ILE$ WILL HAVE LOGICAL NAME 'STRUC! 

print : print "Copying structure of "40ldfile$ 

use Oldfile$ : rem OLDFILE$ 1S LOGICAL NAME OF AN OPEN FILE 

create Strucfile$ logical "struc" : rem CREATE F LLE 
FieldNumber 
FieldNeme$ 
endcreate 

let COUNT=0: while COUNT<numf1d{0ldfile¢) : rem EACH FELD OF 
let struc.F IELDNUMBER=COUNT+1 + rem 'DLDFILE$' IS 
let struc.FIELDNAME$=fieldn(COUNT,Oldfile$) +: rem A RECORD 
append "struc" : rem OF 'NEWFILE$' 
let COUNT=COUNT+1: endwhile 

print 


proc update2 : Tem TRAPS A BUG IN ARCHIVE 2.00 UPDATE COMMAND 
local P; let P=recnum() + Tem STORE CURRENT RECORD NUMBER 
update : position P : Tem UPDATE, AND RESTORE RECORD POINTER 


proc CenPrint;Line,Text$ : rem TIDY WAY OF DISPLAYING 4 MESSAGE 
local COL: let COL=32-(len(Text$)/2) 
print at Line,Oschr(27)+"4"; tab COL;Text$; 


proc EditNames 
local K$,P 
CenPrint;6,"MODIFY FIELD NAMES AND DATA te 
let K$=""; while K$<>"F" 
sprint :CenPrint;11,"(Nlext [BJack [E]dit [Flinish" 
let K$=upper(getkey()): print 
if K$="N": next + endif 
if K$="B": back : endif 
if K$="E":CenPrint 511, "Enter/Modify field name" 
sinput FieldName$ 
update2: endif 
endwhile 


+ rem EDIT OF FIELD NAMES, IN STRUC FILE 
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If you need to do both to a file you must 
run the program twice, doing one of each. 
In the program there are different file 
editing options, depending on whether 
you elect to change the names or the order 
of the fields. The correct transfer sequence 
is used automatically when you have fin- 
ished editing. This means that you have 
to decide which kind of alteration you 
wish to make before you start. 

We shall now look the various elements 
of the program in turn. Type in each of the 
procedures using the Archive editor. If 
you know enough about Archive to test 
each of the procedures separately, this 
will be much better than typing it all in 
one go. In either case, save the program 
every time before trying it, and use test 
data files. Only when you are sure it is 
working correctly should you submit your 
valuable data to it. And even then make 
sure you have a backup copy. 

CopyStrucFile copies the structure of the 
existing data file e (logical file name 
Oldfile$) into a new structure file (physi- 
cal name Strucfile$). This is a simple 
process, because Archive gives ready ac- 
cess to field names via the FIELDN() 
| procedure. A loop appends each oldfile 
field name to the structure file. 


Manipulate 


After the two short supporting proce- 
dures, there are the procedures for 
manipulating the structure file. EditNames 
allows changes to the text of the field 
names. It is also possible to change the 
type of the field by this means, simply by 
removing or adding the ‘$’ sign. The 
transfer program will carry out any nec- 
essary type conversion. Note that apart 
from type conversion, you will not affect 
the contents of the fields by editing the 
names. All that changes is the field name. 

Renumber keeps FieldNumber tidy, and 
is used by the next procedure, EditStruc, 
with only allows fields to be deleted or 
inserted. Any added fields will be blank 
when the data is transferred, and data in 
deleted fields will be lost. If you delete a 
field from one place, and add it (using the 
same name) in another, the data will be 
correctly transferred. In this way, a field 
can be moved to a different place in the 
file structure. The NewField procedure 
adds a field to the file, either above or 
below the current file, using FieldNumber 
to place it correctly. 

From here on the eventual program will 
work without user intervention. The first 
problem is to create a file from the data 
held in the structure file. 

The only way to solve this is to have a 
procedure that writes the required, spe- 
cialised procedure there are then. The 
resulting program can then be merged 
and run. CreateFrom redirects output to a 
program file, and LPRINTs the proc and 
create lines. A loop writes each field name 
in turn, and the endcreate and endproc 
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proc Renumber + Tem RENUMBERS FTELONUMBER, IN SEQUENCE | 
local P,Q: let Psrecnum(): Last 
let Qz=count() 
while Q>0 
let FieldNumber=Q: update : position Q-l 
back : let Q=Q-l 
endwhile : position P 
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proc EditStruc + rem EDIT OF STRUCTURE, IN STRUC FILE 

local K$,V$ + Fem A FIELD POSITION CAN BE MOVED BY DELETING 
CenPrint ;6,"ADD or DELETE FIELDS.” : rem IT FROM ONE PLACE, AND 
order FieldNumberj;a . : Tem ADDING [IT TO ANOTHER 
let K$="": while K$<otF", sprint 

CenPrint;11,"[Njext (Black [DJelete [F Jinish" 

CenPrints12,"Insert [A]Jbove or [U]nder this field" 

let K$=upper(getkey()): print 

if K$="N": next : endif 

if K$="B": back : endif 

if instr("AU",K$) :NewFields"",K$: endif 

if K$="D"': delete : sprint : endif 

if instr("AUD",K$):Renumber: endif 


proc Newf ield;Name$,Above$ ; rem INSERT NEW FIELD TO STRUC FILE 

locel NUM: let NUMsFieldNumber 

if Above$="A" and recnum()>0 : rem IF [A]BOVE QURRENT RECORD 
back ; let NUM=NUMeFieldNumber; endif 

if Above$="U"; next ; let NUM=NUM+FieldNumber : rem IF [BELOW 
if eof(): let NUM=NUM+2: endif 
endif :CenPrint;]12,"" 

let FieldName $=Name$ 

let FieldNumber=NUM/2; append 

CenPrint;11,"Enter field name" 

sinput FieldName$:update2 
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proc CreateF rom; Strucfile$,Newfile$ sLog$ 


let. TEMPFILE$="TEMP_PRG" + rem USE RAMDRIVE IF AVAILABLE 
use Strucfile$: first : print 
print "Creating "+Newfile$+" from structure file"; 


spoclon TEMPFILES export + vem GENERATE TEMPORARY PRG FILE 
[print "prec Temp" ~ 


Iprint "create '"+Newfile$+"" logical ''4Loggente 
while nat eof(} 


lprint FIELONAME$ 

next : endwhile 
Iprint "endcreate": Iprint “endproc" 
spocloff : merge TEMPFILE$:Temp : rem MERGE AND RUN TEMP FILE 
kill TEMPF ILF$ : Tem AND THEN DELETE IT 


proc Appendf rom; Source$,Dest $, ByName 
local COUNT ,MAX ’ 
let TEMPFILE$="TEMP PRG" : Tem USE RAMDRIVE IF AVAT 
| : LA 

use Dest$: last : let MAXsnunfld() ae 
use Source$: first 
print "Appending records from "4+Source$e" to "+Dest$; 
spoolon TEMPFILE$ export : rem CREATE TEM ¥ 
Det Wee ince PORARY PRG FILE 
let COUNT=G; while COUNT<MAX + Tem AN ENTRY FOR €A&CH FIELD 

Iprint "let "+fieldn{COUNT,Dest$)+"="; 

if ByName: AppByName ; Source$,Dest$, COUNT 

else : AppByOrder ;Source$,Dest$,CGUNT: endif 
let COUNT=COUNT+1: endwhile 
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lines finish the procedure off. If you test 
this program, you will find afterwards that 
the new procedure is still there, called 
TEMP. 

There are four procedures to transfer the 
data from the old to the new file, starting 
with AppendFrom. This uses a technique 
similar to CreateFrom, in that it too builds 
up a temporary procedure which actually 
does the work. Here each field of the new 
file has to be assigned values drawn from 
the old file. As explained earlier, the way 
they are obtained depends on whether we 
are transferring by name or by order. The 
parameter ByName, (which is 1 or 0, true 
or false) dictates which process is used. For 
each field in the new file, the second half of 
the statement is written by either 
AppByOrder or AppByName. 

AppByOrder has to cope with four possi- 
bilities: A straightforward transfer (which 
is the same process, even if the names are 
different); type conversions from number 
to string; and from string to number; and 
where there is no corresponding field. This 
last should not occur unless you are trans- 
ferring to a file not produced by this 
program. 

AppByName has a rather different ap- 
proach. For each newfile field, it scans 
down the list of oldfile fields, looking for 
an exact match. If it finds it, it can write the 
relevant line and RETURN. If there is no 
match, the new field is set to empty (“” for 
strings, Zero for numbers), for which the 
AppendBlank procedure is used, 

Once the transfer procedure is complete 
it is merged into the program, over-writ- 
ing any TEMP proc already in memory. A 
loop then steps through each record in 
oldfile, using the temporary procedure to 
transfer the data, whichis then APPENDed 
to newfile. Note: if the original file is 
ORDERed, this will become the physical 
order for newfile’s records. To preserve 
the original order of entry oldfile must 
have been RESET first. 

All that remains is to provide a shell, to 
draw all these parts together into a single 
program. ModifyStruc does this by linking 
up the other procedures. [tassumes the file 
you wish to modify is not open. In order 
for newfile to re-use the previous name, 
oldfile is copied (using BACKUP) to a file 
with the same name, but a ‘_bak’ exten- 
sion. When you have finished, you will 
find bothanormal _dbf file (containing the 
new structure), and the _bak file (contain- 
ing the original data). If you don’t copy 
this _bak file it will be over-written if you 
modify the new file again. 
| The final procedure is called Start, and 

after obtaining the name of the file to 
modify, it simply launches ModifyStruc. 
Any previously saved program with a 
procedure called Start can be loaded and 
run automatically by typing RUN 
“<filename>” from the Archive prompt. 
To run it again simply enter START at the 
prompt. 
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lprint "ENDPROC": spooloff 
merge TEMPFILE$ : rem MERGE IN THE TEMPORARY FILE 
while not eof (Source$) : rem AND CALL IT ONCE FOR EACH RECORD 
use Dest$: error Temp: append Dest} 
print gen(recnum( Source$)+1,4) ;rept (chr(8) 4); 
next Source$; endwhile : kill TEMPFILE$ 
use Dest$: print 
endproc 
proc AppByOrder; Saurce$,Dest$,Field : rem APPEND, IN THE SAME 
if Field<noumf 1d(Source$) ; Tem ORDER THE FIELDS OCCUR IN 
if fielkdt (Field, Source$)=fieldt (Field ,Dest$) 
iprint Source$+"."4fieldn(Field, SOURCE$) 
else : if fieldt (Field, Source$)=0 
lprint "str("+Source$+"."+fieldn(Field,Source$)+", 3,1)" 
else 
Iprint "val('+Saurce$+"."+fieldn(Field, Source$)+")" 
endif : endif 
else :AppendBlank;fieldt(Field,Dest$): endif 


endproc 


prac AppByName; Source$,Dest$,Field > Tem APPEND A MATCHING 
local COUNT,FIELD$:; let COUNT=0 : Tem FLELD NAME, LF GONE 
let FIELD$=upper(fieldn(Field,Dest$)) : rem CAN BE FOUND. 
while COUNT<aumf ld(Source$) 
if FIELD$=upper(fieldn({ COUNT, Sources) } 
Iprint Source}+"."4FIELD$: return : rem EXIT IF A MATCH 1S 
else : let COUNT-COUNT+1: endif : rem FOUND, 


endwhile 
AppendBlank; fieldt (Field,Dest$) 


proc AppendBlank;StringType : Tem APPEND A NULL VALUE, EITHER 
if StringType: lprint chr(34);chr(34) ; rem AN EMPTY STRING("") 
else : Iprint "QO": endif : Trem OR A NUMERIC ZERO. 


proc Modif yStruc;File$ 
local KEY$: let KEygs" 
look FILE$ logical "oldfile" 
kill “struc_tmp" 
CopyStrucfile;"oldfile","struc_tmp": close "oldfile' 
print ; print "Edit [Nlames/types or (A}dd/delete fields? Ms 
while not instr("NA",KEY$): let KEY$=upper(getkey()) 
endwhile : print KEY$: use "struc"; display 
CenPrint ;8,"A Field name can have up to 10 characters" 
CenPrint;9,"For a text field, end it with a '$' sign” 
if KEY$="N".EditNames: else :fditStruc: endif 
¢ls : spoolon screen : dump : spooloff 
print at 8,25;"Confirm, Implement changes? Y/N "; 
if upper(getkey())<>"¥": print "No." 
close "struc"; else ; print 2 
print "Backing up "4File$: kill Filet" bak"; 
backup File$+" dbf" as File$e" bak! om 
look File$+" bak" Iogical "oldfile" 
kill File$+" dbf" 
CreateFrom;"struc",File¢,"newfile'; close "struc" 
AppendFrom;"aldfile","newfile™, (KEY$="A") 
Close “newfile': close "oldfile" 
print ; print “fFinished.": endif 


t rem EDIT FILE 


> rem IF NOT CONFIRMED 
Tem CHANGE NOTHING 
rem OTHERWISE 
+ rem COPY ORIGINAL FILE 


: rem CREATE NEW ONE, AND TRANSFER DATA 


: Tem MAIN PROCEOURE, DRAWING THE REST 
: Trem TOGETHER 


+ rem COPY STRUCTURE 10 FILE 


Se eee wee se se eee 


proc Start 
cis ; print 
input "Enter name of dbf file ta modify ; "; fname$ 
Modif yStruc;fname$ 
endproc 
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ublic Domain” is a 
rapidly growing area 
on the QL and other 
computers. It means 
that certain software can be 
(legally) obtained cheaply by 
paying a small fee for copying 
the programs onto a disk or 
microdrive supplied by you. 
Each collection of Public Do- 
main software is kept by a 
‘library’ which does the copy- 
ing, and tries to ensure that the 
only material distributed by 
them is genuinely in the Pub- 
lic Domain. It is at this point 
that I must draw some sort of 
distinction between the differ- 
ent types of ‘libraries’ operated 
for the QL. 


1. Public Domain libraries. 
Here, the authors of the pro- 
grams have agreed to forego 
any rights, including that of a 
royalty payment, with the in- 
tention that the programs will 
be available to a wider range 
of user. The programs can be 
freely distributed. 


Property 


Material that is genuinely in 
the Public Domain is quite lit- 
| erally public property and can 
be copied, distributed, given 
away, bought, sold, incorpo- 
rated in other works, altered, 
used, re-used and mis-used. 
| Just about the only thing that 
you cannot do with public do- 
main material is to claim that 
you are the author of some- 
thing that you are 
(substantially) not the author 
of, but this falls within the area 
of misrepresentation, not of 
copyright. However, these 
rules were originally drawn 
up to cover the works of au- 
thors, composers, etc. who had 
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PUBLIC 
DOMAIN 


been dead for a number of 
decades, and do not take into 
account the wish of some soft- 
ware writers to allow the 
public to benefit freely from 
their work, without necessary 
relinquishing all control of it. 


Riders 


So you will find that a great 
many programs available 
loosely under the heading of 
‘public domain software’ have 
riders attached to them by their 
authors, for instance, that the 
routines should not be sub- 


distributed through a public 
domain library. Authors 
would be advised to incorpo- 
rate their wishes into the body 
of the program where possi- 
ble, as remarks of this kind are 
a fraction less easy to ‘mislay’ 
than hard copy. 


You might think of such: 


programs as ‘shareware’ 
where no payment of any kind 
is expected. 

2. Shareware libraries. The 
idea here is that the programs 
in the library are freely distrib- 
uted, provided thatadocument 
is included with the program 


‘Public Domain’ software is an 
important source of cheap 
programs for all purposes from 
game-playing to self-education. In 
the first of a short series, Rich 
Mellor looks at the main PD and 
similar libraries which hold QL 
software and the different ways 
authors make their work widely 
available at low cost. 


stantially altered, or re-used 
without other parts of the pro- 
gram or suite, or (very 
commonly) that they should 
not be used for commercial 
gain. 

Authors have a right to at- 
tach these demands to their 
work even if they are being 


explaining Share-ware. Typi- 
cally, anyone who receives a 
copy of the program is under a 
‘moral’ obligation tosend asum 
to the author equivalent to an 
amount which you think that 
the particular piece of software 
is worth. Although you willnot 
be sued if you do not send the 


author any money, if you don’t 
then the author may withdraw 
the program fromitsShareware 
status and write no more -— pi- 
rates are their own worst 
enemies. 

3. Member's libraries (eg the 
Quanta library). This type of 
library has an odd status. Al- 
though programs can be 
distributed free of charge, as 
with Public Domain software, 
it is illegal to distribute copies 
of such programs to anyone 
who does not belong to the 
organisation involved. 

It is very difficult to main- 
tain any sort of library because 
of the complexities of the 
copyright status of software. 
On top of this, it must always 
be noted that the actual copy- 
rightin any software involved 
remains vested in the author 
unless it has been expressly 
assigned to another party, such 
asa publisher. This means that 
any toolkits, routines or pro- 
grams cannot be used in 
another program (whether it 
is commercial, public domain 
or shareware) without the 
copyright holder’s (provable, 
if you wish to be safe) consent. 
In many cases the documents 
giving instructions for a pro- 
gram will include a note from 
the author allowing routines 
or parts of the program to be 
used in other programs solong 
as they’are not to be sold com- 
mercially. On top of this, it 
must also be noted that any 
commercial toolkits, programs 
or routines, whether or not 
they have appeared asa listing 
in any magazines, also remain 
the copyright of the copyright 
holder and cannot be used in 
any Public Domain software 
without express permission. In 
the past many software au- 
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thors (although not often in 
the OL world) have fallen foul 
of this rule. 


European 


QL World hears that in some 
European countries it is ac- 
cepted in law that once a 
program has been published 
in a magazine, it can be freely 
distributed in the public do- 
main. This is not the case in the 
UK. Frankly we cannot see the 
difference between taking 
somebody's poem, article, de- 
sign or novel and circulating it 
without recompensing them, 
and doing the same thing with 
somebody’s program, but the 
exact laws governing copy- 
right are quite shambolic and 
differ considerably not only 
from country to country but 
from ‘medium to medium’ 
within one country’s laws. 


Varied 


As for the range of software 
available in the Public Domain 
scene, this remains very var- 
ied, with many small routines 
which have never appeared 
anywhere else on the market, 
either because the author 
thought that their appeal was 
limited, or preferred to make 
the programs available to a 
wide audience at low cost. In- 
deed included in CGH’s Public 
Domain library are a few pro- 
grams which were originally 
sold on the open market, but 
whose authors have now de- 
cided to distribute freely. 

Of course the actual quality 
of the programs can vary quite 
a lot, but with Public Domain 
the old maxim that you only 
get what you pay for does not 
always apply. For instance 
there are at least eight adven- 
turesin the CGH library which 
range from the very simple, 
with few locations, to one very 
complex adventure (Fantasia 
Adventure) with well over 100 
locations which (so far as ]am 
aware) at the time of writing 
no one has solved! 


Code 


However, with many of the 
programs in the library, the 
source code is supplied so that 
users can examine it or alter it 
as they wish for their own pur- 
poses. This can beanideal way 


to get into programming, since 
much QL Public Domain soft- 
ware contains many useful 
programming techniques 
which can save you time and 
memory (although great care 
must be taken, since Public 
Domain libraries can also at- 
tract some of the worst 
programming I have ever 
seen). 


Leisure 


In the future I shall look at a 
few of the leisure programs 
available inthe Public Domain, 
and where the source code is 
available. | willcommentupon 
the usefulness of the program 
as a teaching aid in program- 
ming. 


tures rely upon. In the CGH 
Public Domain library, there 
are several adventures: Fanta- 
sia, Treasure Hunt, Adventure 
Playtime, Ye-Classical Type, 
Werewolves & Wanderer, 
Haunted House, Aftermath of the 
Asimovian Disaster, and Farce. 
Some of these programs are 
actually quiteachallenge, with 
two of them written by Alan 
Pemberton, who is fast be- 
coming one of the best 
adventure writers for the QL. 

The CGH library is split into 
‘batches’, each of which con- 
tains several programs; each 
batch costs £1.10 plus a 
microdrive. Luckily all of the 
adventures in the library will 
fitintoa standard QL machine, 
so there are no excuses not to 


“Many programs have ‘riders’ attached to them 
by the authors — for instance, that they should 
not be used commercially.” 


Public Domain adventures 
have a reputation for being 
simplistic and certainly not 
difficult. However, they can 
bea useful introduction to the 
world of goblins, dungeons 
and mind-bending problems 
which the commercial adven- 


- You are ta the east of a 


get involved by trying out the 
fun. 


Batch: ADV1 


This contains two adven- 
tures: an updated version of 
the original Treasure Hunt 
supplied free with the QL in 


PUBLIC DOMAIN 


the early days and the Usborne 
version of Haunted House. 

Treasure Hunt has been 
compiled and has had many 
ofits bugs removed. Although 
not the simplest adventure, it 
can be a good introduction to 
adventuring for the elder 
members of the family. It is set 
in a world besieged by drag- 
ons, orcs and soldiers. The 
idea of the game is simply to 
collect all the treasure and de- 
posit it at a certain location. 
However, your task is hin- 
dered by the fantastic scenery 
{icy mountains and swamps), 
thesoldiers who try to put you 
into prison and an inexplica- 
ble desire to catch, cook and 
eat a rabbit. (Not a Hobbit?) 
Although it is relatively easy 
to get killed in this one, it is 
nice to see that the same trick | 
works every time when you 
need to get out of prison! This 
game is the original QL ad- 
venture. 

Haunted House is definitely 
aimed at the younger mem- 
bers of the family. Itis setinside 
an old house which is inhab- 
ited by ghouls and ghosts who 
try to stop you from escaping. 
There are only a very small 
number of locations, but the 
program can challenge young 
minds. 


sturdy 


tuenty foot wall which runs 
northvords into impenetrahia 


undergrowth . 


You can only go southwest from here. 


You can also see :- 


a tait ent 


Whet next? 


>exam ent 


The ant has been chalk-marked with 
an “K" for falling. 


What next? 


ad 


YE CLASSICAL ADVENTURE 
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Batch: ADV2 


This is probably the best 
value for money in the whole 
library. It contains Alan 

| Pemberton’s Adventure Play- 
time and Ye-Classical, plus a 
version of Haunted House 
translated from the Frenchand 
Werewolves & Wanderer. 

Adventure Playtime is only 
available as public domain on 
disk due to copyright prob- 
lems (the microdrive version 
is available from the 
Microdrive Exchange). This 
version has been compiled and 
places youin the safety of your 
own home. Unable to get out 
of the front door and bored to 
tears, you read the note and 
learn that you are supposed to 
be out helping people solve 
their problems. While won- 
dering what to do, you munch 
on the thoughtfully provided 
pizza, and inspiration soon hits 
you. 

Once ‘outside’, you enter a 
world where even the most 
hardened adventurer would 
feel at home. There is a maze 
(anda maze bypass), lost tour- 
ists, librarians with large 
chests, magic doors, prisons 
and evena publicconvenience. 
Each character (yes, even the 
six foot tall rabbit) has a differ- 
ent task for you to perform, 
many of which are inter-re- 
lated. 

Many of the puzzles are rela- 

| tively simple, such as finding 
some way of directing the 
tourist. However, there are 
also some extremely difficult 
puzzles which could take 
hours of trialand error tosolve. 
This is certainly not an adven- 
ture for the absolute beginner 
and on its own is well worth 

| the copying fee (and much 
more). 

Ye-Classical adventure is also 
supplied, This is an excellent 
adventure (written in Quill) in 
which you must collect ten 
treasures so that youcan prove 
yourself worthy to go and kill 
the dragon. There are red her- 
rings all over this adventure, 
and many people will be con- 
founded by the first few 
locations. Giving a helping 
hand to an unusual fella will 
get you much further here than 
trying to kill anyone. Puzzles 
range from simple anagrams 
to keys which have a habit of 
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[Busty path | 


yopen pink door 
You open the pink door. 


>go thro pink 
You go through the pink door. 
As soon as you step through, the 
pink door sprouts lags and runs off. 


You ure on a dusty path. 
southerly breeze blows 


A worn, 


across the path, but apart from that 


everything seems strangely quiet. 

Possible exits are south to the 
green meadows, east to a sandy path 
and west to’a fork in the path. 


You see :- 


>eat 


Adventure Playtime 


disappearing when you want 
to use them. The adventurer 
certainly needs to have his wits 
about him and be able to see 
through problems logically. 
Alan’s sense of humour helps 
to make the game enjoyable 
and an absolute bargain. 
Again, not one for beginners, 
but a real challenge. 

Werewolves & Wanderer 
and Haunted House are both 
much simpler games with a 
few locations. These should 
appeal tothe younger players, 
and although they are not 
much of a challenge, they can 
provide a few hours diversion 
for beginners. 


Batch: FANT1 


This contains only one pro- 
gram, Fantasia. This was 
originally a commercial pro- 
gram which did not sell very 
well, but has now been com- 
piled and made public 
domain. 

It is actually a very large ad- 
venture which proves a real 
challenge to the most seasoned 


nothing 


adventurer (indeed ithasnever 
beensolved,so farasis known)). 
There are hundreds of puzzles, 
many of which include sound 
effects which could drive you 
mad if you do not solve them 
quickly. The display for this 
program is different for the 
normal text-only format in that 
the screen is split into several 
windows each of which con- 
tains different information. 
Although this does improve 
the look of the program, it can 
be annoying since you cannot 
see what you have previously 
entered by way of commands. 
Thesetting is alsoa little weird, 
with locations which range 
from a hedge maze and a 
pyramid to white mice and el- 
ephants. The game is riddled 
with mazes and apparently 
insoluble problems (and yet I 
am promised by the original 
authors that it can be solved). 
In all the game proves to bea 
headache, but is highly in- 
triguing and will certainly 
provide more than a few days 
entertainment. I can highly 


recommend it, although it is 
really only for well-seasoned 
adventure players. 


Batch: ASIM1 


This contains only one pro- 
gram, Aftermath of the 
Asimovian Adventure. Batch 
ASIM?2 is also available, which 
contains a few other non-es- 
sential loading screens. This is 
a rather simplistic adventure 
and is really suited for begin- 
ners. It may not contain many 
puzzles or locations, but it is 
certainly a good introduction 
to adventuring. 

There is only one shareware 
adventure in the CGH library: 
Farce Adventure. This is set on a 
desert island, from which you 
must escape. There are several 
puzzles, but unfortunately the 
one with the raft has me com- 


pletely stumped, since this is 
apparently a means to getting 
around the island to new loca- 
tions away from the initial few. 
Thegameistextonly and written 
on Quill. It is certainly not for 
beginners, but can prove quite a 
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challenge, despite the lack of 
multiplelocations. Itmay provide 
a few hours entertainment, but I 
am sorry to say that itis too frus- 
trating to be addictive. 


Source Code 


The source code for Were- 
wolves & Wandererand Fantasia 
is available on batch ADV 
SOURCI. Neither of these pro- 
grams is an excellent example of 
programming on theQL,;indeed, 
Fantasia is next to impossible to 
follow, and certainly could not 
be adapted to another setting. 
However, thesource for Fantasia 


does provide one useful feature 
of having access to the Basic pro- 
gram — it can be inspected for 
clues to solving the adventure! 
Batch ADV SOURC2 contains 
the source code for Adventure 
Playtime (only available on disk) 
and Usborne’s Haunted House. 
Again, Haunted House is not 
very good programming, sinceit 
is a direct copy from another 
computer (with a few minor al- 
terations to get it to run on the 
QL). On the other hand, Adven- 
ture Playtime shows some 
excellent programming tech- 
niques and proves a very useful 
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Monthly Newsletter — up to 40 pages 
Massive Software Library — mostly FREE! 
Free Helpline and Workshops 
Regional Sub-Groups. One near you? 
Advice on Software & Hardware problems 
Discounts from most major suppliers 
Subscription just £14 for UK members 
Overseas subscription £17 
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example of how to program an 
adventure in Basic. 

Next month I shall look at the 
different Public Domain utilities 
available to help adventure pro- 


PUBLIC DOMAIN 


grammers. If you have any de- 
tails of any other public domain 
libraries then please contact me, 
so thatI canlookintotherange of 
software which they provide. 


You are standing in a corridor by 
an open door over which is written 
: ‘Security systems in operation’. 
There is a faintly warm breeze in 
the air. 


A metallic voice repeats the word 
“RUBOUVH' What is your reply?. 


Fantasia 
Adventure 


QL Keyboard direct connected 
Disc interface 

Disc drive single and dual 

Cabinet PC style for QL in Kit 
Video Digitalizer 

QLrom for Eprom 16K rear 
Internal Memory expansions 512K 
Hard Disc system 20 Mb for QL 
Qeprom for 192 K EPROM 
Erogrars eves 
Professional CAD for PCB 
Qconnect Interface with 28 digital I/O 


Price Ex VAT inc. P&P 
see 
SPEM 
eee 


via Aosta 86, 10154 Torino, Italy 
Tel +39 11 857924 Fax +39 11 280009 


QTop is the definitive User-Front-End package for all QDOS 
compatible computers, the standard SINCLAIR QL, the powerful 
Thor XVI & the ST with QL-Emulator. Based on the @RAM 
design with twice the power of QPAC Il! The powerful QJUUMP 
extended Pointer Environmentis included. The Menus are DESK, 
DEVICES, FILES, JOBS, KEYBOARD, PROGRAMS, MY 
PROGS, TOOLS and OPTIONS. Five desktop accessories are 
included TCLOCKS, TDEMOS, TANIMATOR, TINDEX & 
TSNAP. Now version 1.04! Software and 41 page manual is 
available in English or German for Sfr 90. — (disc) or Sfr 98. — (mdv) 
including P&P. Free updates. Send enquiries & orders with cheques 


to: 
Cowo Electronic, 
Minsterstrasse 4, CH-6210 Sursee 
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